CZDHGCO TOF 1. -OCT 1985 


DH11 MULTILINE DATA AH-FG26C-MC dlilali|tlalt 
- COPYRIGHT®© 1972-85 MADE IN USA 


be! 
a-: 

ee 
| ek 











T Sw 
€279uG -CO MACRO VO4.00 27-JUN-85 13:01:48 PAGE 1 SEQ i 


-REM ! 


O@rIOUPUtor 


16 IDENTIFICATION 


20 PRODUCT CODE: AC -8468C -MC 
22 PRODUCT NAME : CZDHGCO DH11 MULTI-LINE DATA TEST 
24 DATE: JUNE 1985 

26 es MAINTAINER: NAC SOFTWARE ENGINEERING 

28 AUTHOR : G. BAISLEY 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
31 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
32 EQUIPMENT CORPORATION. OIGITAL EQUIPMENT CORPORATION ASSUMES 
33 _ NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 


34 DOCUMENT . 
36 NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON 
= nn when THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 
8 COMPANIE 


41 COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 





CZOHG -CO 


-— 





OS@xaPU whe 











SEG 2 


MACRO VO4.00 27-JUN-85 13:01:48 PAGE 2 


PAGE 2 


1.0 ABSTRACT 


THE SINGLE LINE PARITY TEST CHECKS THAT THE PARITY ERROR FLAG ASSERTS 
FOR ALL 16 LINES. . .ONE LINE AT A TIME. 


THE DH1i1 MULTI-LINE DATA TEST TRANSMITS BINARY COUNT PATTERNS ON ALL 
16 LINES SIMULTANEOUSLY. ALSO, PARITY GENERATION LOGIC AND PARITY 


— LOGIC IS VERIFIED. (ODD & EVEN PARITY FOR S, 6, 7, 8 LEVEL 


2.0 REQUIREMENTS 


2.1 EQUIPMENT 
PDP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY 
ASR-33 TELETYPE OR EQUIVALENT 


DH11 ASYNCHRONOUS MULTIPLEXER 
DOM11 MAINTENANCE CARD INSTALLED 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4KW OF MEMORY 


3.0 LOADING PROCEDURE 
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES IS TO BE USED 


4.0 STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 


4.1.1 AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 
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4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES AFTER 
PROGRAM RESTART 


SWOO0=1 


4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 
SWO1=1 


4.2 STARTING ADDRESS 


THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RESTART ADDRESS FOR ALL TESTS IS 0002000 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 


4.3 PROGRAM AND/OR OPERATOR ACTION 


4.3.1 INITIAL PROGRAM 3TART 


4.3.1.1 LOAD PROGRAM INTO MEMORY 


4.3.1.2 LOAD ADDRESS 000200 


4.3.1.3 CLEAR CONSOLE SWITCHES 


4.3.1.4 PRESS START 


4.3.1.5 THE PROGRAM WILL TYPE “DHi1 MULTI-LINE DATATEST” AND WILL 
THEN TYPE “VECTOR ADDRESS-” AND WAIT FOR AN INPUT FROM THE TELETYPE 


KEYBOARD. 





SEQ 3 
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4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR FOR THE 
DHii TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 
NOTE 
WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE 


RETURN> MEAN THAT THE TELETYPE KEY WITH 
THE NAMED FUNCTION SHOULD BE STRUCK 


IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM WILL TYPE “?” AND WILL 
REPEAT THE SECOND MESSAGE OF 4.3.1.5 


4.3.1.7 THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-“ AND WAIT 
FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 
DH1i TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS 7 TYPED, THE PROGRAM WILL TYPE "?” AND WILL 
THEN REPEAT THE OF 4.3.1 


4.3.1.9 THE PROGRAM WILL TYPE “R” TO INDICATE THAT IT IS ABOUT TO 
START TESTING, AND THEN TESTING WILL BEGIN 


4.3.2 PROGRAM RESTART WITH ALL SWITCHES DOWN 
4.3.2.1 PERFORM 4.3.1.2 TO 4.3.1.5 


4.3.2.2 THE PROGRAM WILL TYPE “DHil MULTI-LINE DATATEST” AND WILL 
THEN CONTINUE AS DESCRIBED IN 4.3.1.9 


4.3.3 PROGRAM RESTART WITH SWO0O=1 








SEQ 4 
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4.3.3.1 LOAD ADDRESS 000200 

4.3.3.2 SET SWOi-1 

4.3.3.3 PRESS START 

4.3.3.4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
4.3.4 PROGRAM RESTART WITH SWO1i=1 

4.3.4.1 LOAD ADDRESS 000200 

4.3.4.2 SET SWOi=1 

4.3.4.3 PRESS START 


4.3.4.4 THE PROGRAM WILL TYPE “DHil MULTI-LINE DATATEST” AND WILL 
THEN TYPE “TEST PC-” AND WILL WAIT FOR AN INPUT FROM THE TELETYPE 


KE YBOARD 


4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO BE 
STARTED FOLLOWED BY <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED AND 
WILL START TESTING AT THE SELECTED TEST. 


NOTE 


CARE MUST BE TAKEN WHEN THIS FEATURE IS 

USED. SINCE THERE IS NO PROTECTION 
AGAINST ewe AN ADORESS THAT IS_ IN 
THE MIDDLE OF A TEST 









SEQ 6 
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1 PAGE 6 
2 
3 
: NOTE 
& IF IT IS DESIRED TO LOOP ON THE TEST 
7 THAT IS SELECTED SET SWi4=1 BEFORE 
: ENTERING THE TEST ADDRESS 
10 
11 
i 
rf: 5.0 OPERATING PROCEDURE 
17 
7 5.1 OPERATIONAL SWITCH SETTINGS 
20 SW1i5=1, HALT ON ERROR 
21 SWi4-1, LOOP ON CURRENT TEST 
22 SWi3=1, SUPPRESS ERROR TYPEOUT 
23 SWiil=1, INHIBIT ITERATIONS 
<4 SWi0=1, ESCAPE TO NEXT TEST ON ERROR 
25 SWO9=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 
26 SWO1=1, START PROGRAM AT SELECTED TEST 
oe SWOO=1, CHANGE PARAMETERS AT PROGRAM RESTART 
29 
30 
. 5.2 SUBROUTINE ABSTRACTS 
: — 
= 5.2.1 TRAPCATCHER CLOCATIONS 000000-000776) 
37 THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS AND TRAPS. 
” THE AREA FROM 000000-000776 IS LOADED WITH THE FOLLOWING SEQUENCE 
40 2 
41 0 
4 4 
43 0 
44 ae 
45 772 
46 0 
47 776 
po 0 
50 IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM WILL HALT WITH 
$1 THE PC 2 GREATER THAN THE ADDRESS TO WHICH THE PROGRAM TRAPPED. THE 
52 PROCESSOR STACK MAY BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS 
53 WHEN THE TRAP OR INTERRUPT OCCURED. 





- 


CZOHG -CO 


VW@e~rAUaUWre 





MACRO VO4.00 27-JUN-85 13:01:48 PAGE 7 


PAGE 7 


5.2.2 START (PROGRAM INITIALIZATION) 


THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, TYPES THE 
PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR AND CONTROL REGISTER 
ADDRESSES OF THE DHii 10 BE TESTED. 


5.2.3 BEGIN (PROGRAM START AND RESTART) 


THIS ROUTINE IS ENTERED IMMEDIATELY AFTER “START” AND EACH TIME A 
PROGRAM PASS HAS BEEN COMPLETED. THE ROUTINE SETS UP THE PROCESSOR 
STACK AND STATUS WORD AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 
TESTING WILL BEGIN. IF SWO1=0 WHEN THIS ROUTINE IS ENTERED TESTING 
WILL START AT Ti CTEST 1). IF SWOi=1 WHEN THIS ROUTINE IS ENTERED, 
TESTING WILL START AT THE PC ENTERED FROM THE TELETYPE KEYBOARD. 


5.2.4 EOP CEND OF PASS) 


THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS HAVE BEEN 
COMPLETED. THIS ROUTINE TYPES THE MAINDEC IDENTIFICATION CODE OF THE 
PROGRAM, CLEARS ERROR FLAGS AND UPDATES THE PASS COUNT. IF THE 
PROGRAM WAS LOADED UNDER ACT11 OR DOP, THE ROUTINE CHECKS FOR RETURN 
TO THE ACT11 OR DOP MONITOR. IF THE PROGRAM IS NOT UNDER MONITOR 
CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 


5.2.5 SCOPER (SCOPE LOOP AND ITERATION HANDLER) 


THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. THE ROUTINE 
CHECKS FOR THE FOLLOWING UPON ENTRY 


1. IF SWiO=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST IN 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 


2. IF SWii=1. THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 


3. IF SWié-1, THE ROUTINE WILL LOOP ON THE CURRENT TEST 
REGAROLESS OF THE ITERATION COUNT.— 


IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1 TO THE COUNT 


OF 
TEST ITERATIONS, AND COMPARE THIS VALUE TO THE NUMBER OF ‘et _ 


THAT SHOULD BE PERFORMED. IF THESE NUMBERS ARE EQUAL, THE 
WILL TRANSFER TO THE NEXT TEST IN SEQUENCE. IF THE NUMBERS ARE NOT 
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 
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5.2.6 SCOPIR (FREEZE ON CURRENT DATA) 


THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATELY AFTER THE CALL TO THE 
ERROR HANDLER IN THOSE TESTS THAT HAVE VARIABLE PARAMETERS. THIS 
ROUTINE IS ALWAYS ENTERED IN THOSE TESTS. WHETHER OR NOT AN ERROR 
OCCURS. IF SWO9=1, THE ROUTINE WILL TRANSFER CONTROL BACK TO THE TEST 
AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION UNDER TEST 
CONTINUOUSLY WITH THE SAME DATA. IF THIS OPTION IS SELECTED, THE 
ROUTINE “SCOPER” IS NEVER ENTERED AND ITERATION COUNTS WILL NOT BE 


5.2.7 ERRORS CERROR HANDLER) 


THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. WITH ALL CONSOLE 
SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS: 


1. THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER IS 
ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION ITSELF 
IS FETCHED. THE 8 LSB OF THE EMT INSTRUCTION ARE THE ERROR 
CODE. THIS CODE IS USED TO ACCESS A TABLE OF ERROR MESSAGES 
AND ERROR DATA STORAGE LOCATIONS. 


2. IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY DURING THIS 
PASS, A COMPLETE ERROR REPORT IS MADE IF THE TEST THAT FAILED 
FAILED MORE THAN ONCE DURING THE CURRENT PASS, ONLY THE DATA 
RELATING TO THE FAILURE IS TYPED. IF SwWi3=1, NO ERROR 
TYPEOUT IS MADE. 


3. THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SWiS=1 THE 
PROGRAM WILL HALT WITH THE PC OF THE CALL TO THE ERROR 
ROUTINE IN RO. IF SWi5=0, THE PROGRAM WILL NOT HALT, BUT 

WILL CHECK FOR ESCAPE 70. NEXT TEST. 


4. IF SWi0*0, THE ROUTINE WILL RETURN TO THE TEST IN PROGRESS. 
IF SWi0=1, THE ROUTINE WILL ABORT THE CURRENT TEST, AND 
TRANSFER TO THE NEXT TEST IN SEQUENCE, THRU THE ROUTINE 


5.2.8 TRPSRV CTRAP DECODE AND DISPATCH) 


THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION THAT CAUSED THE 
PROGRAM INTERRUPT, AND TRANSFERS CONTROL TO THE ROUTINE THRU THE TABLE 
“TRPTAB” USING THE 8 LSB OF THE TRAP INSTRUCTION AS AN OFFSET TO THE 
POINTER TO THE ROUTINE TO BE ENTERED. 





SEQ 8 
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; 
; 5.3 PROGRAM AND OR OPERATOR ACTION 
; 
. 5.3.1 PROGRAM START WITH ALL SWITCHES DOWN 
if 
12 5.3.1.1 REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 
13 BEHAVIOR. 
14 
i6 
17 5.3.1.2 AFTER “R” HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION WILL 
18 BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER OF ITERATIONS 
19 (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) AND THEN THE PROGRAM WILL 
PROCEED TO THE NEXT TEST. | 
i 
24 5.3.1.3 WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM WILL 
25 TYPE “CZDHG-C” AND THEN RESTART TESTING AT TEST 1 CLOCATION Ti IN THE 
26 PROGRAM). 
27 
: 
30 5.3.1.4 IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 
: 
Hr 5.3.2 PROGRAM START WITH SWOO-1 
4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 
: 
rt 5.3.3 PROGRAM START WITH SWOi-1 
aa 
r+ 5.3.3.1 REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 
a 
49 5.3.3.2 TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED AND WILL 
50 CONTINUE AS DESCRIBED IN 5.3.1.2 





i: 
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a _— “CZDHG-C” HAS BEEN TYPED, THE PROGRAM WILL RESUME TESTING 


5.3.4 PROGRAM OPERATION WITH SWi5=1 
SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, THE PROGRAM WILL 


HALT AFTER THE ERROR TYPEOUT, AND THE PC+2 OF THE CALL TO THE ERROR 
ROUTINE WILL BE DISPLAYED IN RO. 


5.3.5 PROGRAM OPERATION WITH SWi3=1 
SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 


5.3.6 PROGRAM OPERATION WITH SWil=1 
SAME AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE ONLY 


5.3.7 PROGRAM OPERATION WITH SW101 


SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR THE CURRENT TEST 
ny BE ABORTED, AND THE PROGRAM WILL PROCEED TO THE NEXT TEST IN 


5.5.8 PROGRAM OPERATION WITH SWi4=1, OR SWO9=1 


THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. SEE SECTION 
6.3 FOR THEIR USE. 








SEQ 11 
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Pe 6.0 ERRORS 
P 6.1 ERROR HALIS 
Ps THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS IS AS FOLLOWS 
$0 PC+2 
51 HEADER CIF APPLICABLE) 
4 DATA CIF APPLICABLE) 
"4 WHERE 
55 PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER «+ 2; 
56 MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE; 
57 HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW; 
58 DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE. IF 
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THE SAME ERRROR OCCURS IN A GIVEN TEST ON THE SAME PASS. AND IF DATA 
IS ASSOCIATED UITH THAT ERROR, ONLY DATA IS TYPE ON SUCCEEDING ERROR 


IF NO DATA IS ASSOCIATED WITH THE ERROR THE COMPLETE ERROR MESSAGE IS 


6.1.1 ERROR DESCRIPTIONS 
SEE LISTING FOR DETAILS OF ERRORS 


6.2 RECOVERY 


6.2.1 SwWiS-0 


IF THE PROGRAM IS RUN WITH SWiS=0, NO OPERATOR ACTION IS REQUIRED TO 
CONTINUE TESTING 


6.2.2 SwWid-1 


IF THE PROGRAM IS RUN WITH SWiS=1, TO CONTINUE TESTING AFTER THE 
PROGRAM HAS HALTED, PRESS THE PROCESSOR CONSOLE CONTINUE SWITCH 





6.2.3 ILLEGAL INTERRUPTS 


IF AN INTERRUPT OCCURS TO A VECTOR ADORESS NOT SELECTED DURING PROGRAN 
INITIALIZATION PROGRAM WILL HALT IN THE TRAPCATCHER, THE ADORESS 
AT WGCH THE PROGRAM HALTS 15 2 GREATER THAN The ADDRESS TO WHICH THE 
INTERRUPT OCCURED occur THE PROGRAM MUST BE RESTARTED AT 200 TO RECOVER 
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6.3.1 TO SCOPE ON A SPECIFIC TEST. SET SWi4=-1 AND SWi3-1. THIS WILL 
THE PROGRAM TO CONTINUOUSLY LOOP ON THE SAME TEST, AND WILL 


CAUSE 
CAUSE ALL ERROR TYPEOUTS TO BE INHIB 


6.3.2 TO SCOPE ON A SPECIFIC VALUE OF A PATAMETER WITHIN A TEST, SET 
SWO9*1 TO FREEZE THE DATA. (SEE LISTING FOR THOSE TESTS THAT 


INCORPORATE THIS FEATURE) 


6.3.3 PROGRAM START TO SCOPE LOOP ON SELECTED TEST 
PERFORM SECTION 4.3.4 WITH SWi4=1 


7.0 RESTRICTIONS 


7.1 STARTING 
THE DH1i1 TEST CARD MUST BE INSTALLED 


7.2 RUNNING 
NONE 


SEQ 13 
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8.0 MISCELLANEOUS 


8.1 EXECUTION TIME 


THE TIME FOR ONE PASS OF THE PROGRAM (END OF TYPEOUT OF CZDHG-C TO END 
OF TYPEOQUT OF CZDHG-C) IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE 


BELOW 

TIME 
PROCESSOR 
POP -11/05,10 
POP-11720 
PDP -11/40 
PDOP-11745 








SEQ 14 
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9.0 PROGRAM DESCRIPTION 


THIS PROGRAM CONSISTS OF 2 TESTS. THE FIRST TEST RUNS ALL 16 LINES AT 
4800 BAUD WITH THE RECEIVER OPERATING y INTERRUPT MODE. THE 
TRANSMITTER INTERRUPT IS NOT ENABLED, BUT BACKGROUND ROUTINE IS 
EXECUTED THAT FIRST WAITS FOR ALL iRANSHITTER BAR BITS TO CLEAR, AND 
THEN WAITS FOR THE SILO TO BE EMPTIED BY THE RECEIVER INTERRUPT 
SERVICE ROUTINE. WHEN BOTH OF THESE HAVE OCCURED, THE TEST HAS BEEN 
COMPLETED, AND IS RESTARTED IF ITERATIONS HAVE NOT BEEN INHIBITED. 


THE RECEIVER INTERRUPT SERVICE ROUTINE FOR THIS TEST FIRST CHECKS TO 
SEE THAT CHARACTER AVAILABLE WAS SET AND THAT SILO OVERRUN WAS NOT 
SET. IT THEN READS THE RECEIVED CHARACTER FROM THE SILO, EXTRATTS THE 
LINE NUMBER FROM THE DATA READ, AND COMPARES THE RECEIVED DATA WORD 
(16 BITS) TO AN EXPECTED RECEIVED CHARACTER WORD FOR THE LINE DECODED. 
THE EXPECTED RECEIVED CHARACTER FOR THAT LINE IS THEN UPDATED. AND THE 
ROUTINE THEN RETURNS BACK TO THE TRANSMITTER BACKGROUND ROUTINE 


THE SECOND TEST OPERATES WITH THE TRANSMITTER AND RECEIVER BOTH IN 
INTERRUPT MODE, BUT THE SILO ALARM LEVEL IS SET TO 63 (DECIMAL) 
CHARACTERS, AND A CHARACTER AVAILABLE INTERRUPT SHOULD NOT OCCUR. 


THE RECEIVER IS SERVICED ON A PER CHARACTER BASIS BY CONTINUOUSLY 
TRYING TO READ CHARACTERS FROM THE NEXT RECEIVED CHARACTER REGISTER. 
WHEN THE VALID DATA BIT OF THE NEXT RECEIVED CHARACTER REGISTER IS 
ROUTINE PROCEEDS TO Tous 


SET, CHECK CHARACTER AS IN THE PREV 
if EXPECTED RECEIVED CHAR INCREMENTS 10 0 10 
(DECIMAL) TIMES, AN TRANSMIT FLAG IS SET. IF THIS FLAG IS NOT 


RECEIVED CHARACTER INCREMENTED TO 0. WHEN THE END 
SET. NO LINES ARE RESTARTED, THE SILO IS EMPTIED OF ALL REMAINING 
CHARACTERS, AND THE TEST IS RESTARTED IF ITERATIONS ARE NOT INHIBITED. 


10.0 LISTING 





SEQ 15 
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753 
TCH REGISTER” 
754 3 
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-LIST 
-NLIST MC,MD,CND 
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; DHMAC-A - DH11 MACRO LIBRARY 
; COPYRIGHT 1985, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


ME 


Lh 
Ww 


CMS REPLACEMENT HISTORY 


#9 SKONETSKI 26-APR-1985 16:23:08 
#8 SKONETSKI 22-APR-1985 16:48:03 
#7 SKONETSKI 22-APR-1985 16:26:04 


#6 SKONETSKI 22-APR-1985 14:22:35 
#5 SKONETSKI 22-APR-1985 08:28:54 


“FIXED TYPO CAUSING ASSEMBLY ERRORS” 
“TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED” 
“ADDED CODE TO SET VECTORS FOR PWR FAIL. ERRORS, AND EMT 


“FIXED BRANCH ERROR IN END OF PASS ROUTINE” 
“FIXED BUG CAN OCTASC MACRO CALL WAS WRONG) AND ADDED A 


“ADDED SOFTWARE SWITCH REG SUPPORT. BUT UNTESTED” 
“FIXED PROBLEMS WITH SPURIOUS CR/LFS” 
“ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI 


“LIBRARY FOR DH11 DIAGNOSTICS” 


#4 SKONETSKI 18-APR-1985 14:20:15 
#3 SKONETSKI 12-APR-1985 10:34:52 
#2 SKONETSKI 11-APR-1985 16:00:24 


#1 SKONETSKI 11-APR-1985 15:49:05 





CZDHG -CO 


- 


6 0C0000 
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-LIST ME 
-NLIST MC,MO,CND 
. HEADER +/1972, 1985/,t/DH11 SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST/,*/CZDHG-CO/ 


sSTARTING PROCEDURE 

;LOAD PROGRAM 

sLOAD ADDRESS 000200 
sPRESS START 

sPROGRAM WILL TYPE DHi1 SINGLE LINE PARITY CHECK € MULTI-LINE DATA TEST 
sPROGRAM WILL TYPE “VECTOR ADDRESS-” 

sTYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 

sFOR THE OHi1 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 

sPROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-” 

sTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 

sFOR THE DHil TC BE TESTED, FOLLOWED BY <CARRIAGE RETURN> ; 3 
sPROGRAM WILL TYPE “"R” TO INDICATE THAT TESTING HAS STARTED 

sAT THE END OF A PASS, PROGRAM WILL TYPE “ CZDHG-CO 
sAND THEN RESUM TESTING 


-TITLE CZOWG-CO 
-ENABLE ABS 
-NLIST oe 


-LIST 

. SYMBOLS 

sSWITCH REGISTER OPTIONS 

SW15=100000 3*1,HALT ON ERROR 

SW14=40000 :*1,LO0P ON CURRENT TEST 
SW13=20000 :*1, INHIBIT ERROR TYPEOUT 
SW1i2=10000 

SW11=4000 :*1, INHIBIT ITERATIONS 

SW10=2000 s*1,ESCAPE TO NEXT TEST ON ERROR 
SW¥09=1000 :*1,LO0P WITH CURRENT DATA 

SWOB 

SW06=100 

SWO5=40 

SW04=20 

SWO3=10 

SWO02=4 

SWO1=2 sRESTART PROGRAM AT SELECTED TEST 
SWOO=1 sRESELECT VECTOR AND CONTROL REGISTER 


sADDRESS AFTER PROGRAM RESTART 








CZOHG -CO 


1 000000 


o- 
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177776 
013752 





sREGISTER DEFINITIONS 


sGENERAL REGISTER 


G 

s;GENERAL REGISTER 
s;GENERAL REGISTER 
sPROCESSOR STACK POINTER 
sPROGRAM COUNTER 


sLOCATION EQUIVALENCIES 


;SWR*177570 
;LIGHTS=177570 
PS*177776 
STACK=ENDCOD +200 


sCONSOLE SWITCH REGISTER 
sPDP-11/45 DISPLAY REGISTER 
sPROCESSOR STATUS WORD 

sSTART OF PROCESSOR STACK 


sINSTRUCTION DEFINITIONS 


PUSH1SP=5746 
POP1SP=5726 
PUSHRO=10046 
POPRO=12600 


PUSH2SP=24646 

POP2SP =22626 

: 

-MACRO HLT 
EMT 

-ENOM HLT 

; 


; 
BIT15=100000 


BIT04=20 





sDECREMENT PROCESSOR STACK 1 WORD 
sINCREMENT PROCESSOR STACK 1 WORD 
sSAVE RO ON STACK 

sRESTORE RO FROM STACK 

sDECREMENT STACK TWICE 

sINCREMENT STACK TWICE 


$A 
$A 





SEQ 18 


od 
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000000 
000200 


000000 
000116 
000000 


sTRAPCATCAER FOR ILLEGAL INTERRUPTS 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CA 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
ND CAUSE 


IND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
NE O FIND CAUSE 


TR 
sEXAMINE STACK TO F 


CAUSE 
sUNEXPECTED TRAP 10 THIS LOCATION 
iEXAMINE § STACK TO FIND CAUSE 
i D TRAP TO THIS LOCATION 


CAUSE 
s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK T 


s;UNEXPECTED TRAP TO THIS LOCATION 





SEQ 19 





- 
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Ssessuceececuesestetstascleieseinnestoleies 
SEELEESESGEES—<sCsEsOSESEAESCCLELSICTeTSTEISTCITICIIES 


HALT 
+2 

HALT 
+2 
HAL 





sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTEO TRAP y THIS LOCATION 


iE NE $ 

sUNEXPECTED TRAP 10 THIS LOCATION 
EXAMINE STACK T 

ures Stat ¢ TO THIS LOCATION 
‘ 

sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMI TACK TO FI 

sUNEXPECTED TRAP TO THIS LOCATION 
tEXAMINE STACK T 

ara at TRAP TO THIS LOCATION 


' NE 

sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK T 

sUNEXPECTED TRAP TO THIS LOCATIGN 
sEXAMINE STACK TO F 

eee ae TRAP TO THIS LOCATION 


sEXAMINE S 
sUNEXPECTED TRAP TO THIS LOCATION 
’ NE STACK TO F 

sUNEXPECTED TRAP y THIS LOCATION 
sEXAMINE STACK T 

sUNEXPECTED TRAP r0 THIS LOCATION 
sEXAMINE STACK T 

| UNEXPECTED TRAP r0 THIS LOCATION 
sEXAMINE STACK T 

sUNEXPECTED TRAP 10 THIS LOCATION 
sEXAMINE STACK TO F 

MRATNE aTAGK i oF THIS LOCATION 















s EXAMINE 7 age 5° SE 

sUNEXPECTED TRAP 10. THIS LOCATION 

NE STACK T 

TRAP 9 THIS LOCATION 
ee STACK TO FINO CAU 

sUNEXPECTED TRAP TO THIS LOCATION 


sEXAMINE STA 

RAP y 3 THIS LOCATION 
sEXAMINE STACK TO F 
Ps 3 " TRAP 19. THIS LOCATION 


fis D TRAP 10 9 A en 
1 UNE 10 “THIS LOCATION 
TONEXPECTED TRAP TO THIS, LOCATION 
eee Lea ae 7 


sUNEXPECTED TRAP y THIS LOCATION 
sEXAMI 


1 UNEXPE TED TRAP 10 0 THIS LOCATION 
sE STACK TO FIND 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 





- 
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sUNEXPECTED TRAP TO THIS LOCATION 
S EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
S EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
UNEXPECTED TRAP TO aye LOCATION 


Cc 
sUNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO es LOCATION 


ND 
AP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP T y 5 THIS LOCATION 


; UNE 

sEXAMINE STACK TO FIND CAUSE 
s UNEXPECTED og! By THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 

s UNEXPECTED os ae THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO ag LOCATION 





TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
+ EXAMINE STACK TO FIND C 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
TED TRAP TO THIS LOCATION 

FIND CAUSE 





AUSE 
TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
ar STACK TO CAUSE 

TED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND 
sUNEXPECTED TRAP TO THIS LOCATION 








SEQ 22 
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HALT sEXAMINE STACK TO FIND CAUSE 
000514 000516 .+2 sUNEXPECTED TRAP TO THIS LOCATION 
000516 HALT sEXAMINE ST 0 FI 
000522 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000522 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000524 000526 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000526 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000530 000532 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000532 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000534 000536 .+2 sUNEXPECTEO TRAP TO THIS LOCATION 
000536 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000540 000542 .+2 sUNEXPECTED TRAP TO THIS LOCATION 
000542 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000544 000546 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000546 000000 HALT sEXAMINE STACK TO FIND CAU 
006550 000552 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000552 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000554 000556 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000556 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000560 000562 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000562 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000564 000566 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000566 000000 HALT sEXAMINE STACK TO FIND CAUSE 
060570 000572 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000572 000000 HALT sEXAMINE STACK TO FIND CAUSE 
000574 000576 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000576 000000 HALT sEXAMINE STACK TO FIND C 
000600 000602 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000602 HALT sEXAMINE STACK TO FIND 
000604 000606 +2 sUNEXPECTED TRAP TO THIS LOCATION 
HALT sEXAMINE STACK TO 
000610 000612 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000000 HALT sEXAMINE STACK TO 
000614 000616 ¢2 sUNEXPECTED TRAP TO THIS LOCATION 
000616 HALT sEXAMINE STACK TO 
000622 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000622 HALT sEXAMINE STACK TO 
000624 000626 +2 sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK T 
000630 000632 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000632 HALT sEXAMINE STACK TO 
000634 000636 +2 ;UNEXPECTED TRAP TO THIS LOCATION 
000636 HALT sEXAMINE STACK TO 
000640 000642 -+2 s UNEXPEC TRAP TO THIS LOCATION 
000642 000000 HALT sEXAMINE STACK TO 
000644 000646 +2 ; UNEXPEC TRAP TO THIS LOCATION 
HALT sEXAMINE STACK TO 
000650 900652 +2 ; UNEXPE TRAP TO THIS LOCATION 
000652 000000 HALT sEXAMINE STACK TO F 
000654 000656 2 sUNEXPECTED TRAP TO THIS LOCATION 
000656 000000 HALT sEXAMINE STACK TO FIND C 
000660 000662 2 sUNEXPECTED TRAP TO THIS LOCATION 
000662 000000 HALT sEXAMINE STACK TO FIND C 
000664 000666 +2 sUNEXPECTED TRAP TO THIS LOCATION 
000666 000000 HALT sEXAMINE STACK 
000670 000672 -+2 sUNEXPECTED TRAP TO THIS LOCATION 
000672 000000 HALT sEXAMINE STACK TO FIND CAUSE 


‘- 
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000676 
000000 
000702 
000000 
000706 
000000 
000712 
000000 
000716 
000000 
000722 
000000 
000726 
000000 
0007 52 
000000 
000736 
000000 
000742 
000000 
000746 
000000 
000752 
000000 
000756 
000000 
000762 
000000 
000766 
000000 
000772 
000000 
000776 
000000 


. SETVEC 





; UNEXPECTED gs TO THIS LOCATION 
sEXAMINE STACK FIND CAUSE 

s UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP ib THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP "Fane LOCATION 


sEXAMINE STACK TO FIND C 





SEQ 23 








SEQ 24 
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000200 
000167 


104400 
000001 


104401 
000002 
104402 
000003 
104403 
000004 


104404 
000005 


104405 
000006 


104406 
000007 
104407 
000010 


104410 
000011 


-*200 


. TRPDEF 


TRPDEF 





sSTANDARD INTERRUPT VECTORS 
JMP START ;GO TO START OF PROGRAM 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING 
sAT LOCATION “TRPTAB” 


SCOPE, t/SCOPE LOOP AND ITERATION HANDLER/ 


—e ;SCOPE LOOP AND ITERATION HANDLER 
sj 4 
ps » La ld YPE OUTPUT ROUTINE/ 
— sTELETYPE OUTPUT ROUTINE 
sT¢ 
OCTASC,*t/OCTAL TO ASCII CONVERSION/ 
— oo sOCTAL TO ASCII CONVERSION 
sy ¢ 
INSTR, t/INPUT ASCII STRING/ 
—e sINPUT ASCII STRING 
sj ¢ 
fa LE ga INPUT ERROR/ 
= sSTRING INPUT ERROR 
sj ¢ 
PARAM, ee STRING TO OCTAL, CHECK LIMITS/ 
PARAM= TRAP + sCONVERT STRING TO OCTAL, CHECK LIMITS 
sje 
SAVOSP ,t/SAVE RO-RS, PC/ 
SAVOSP=T RAP +Y sSAVE RO-RS, PC 
YeVel 
RESOS.?*/RESTORE RO-RS/ 
nme i ' TRAP +Y sRESTORE RO-RS 
sj ¢ 
SCOPE1.*/CHECK FOR FREEZE ON CURRENT DATA/ 
es —" sCHECK FOR FREEZE ON CURRENT DATA 
sYo 


sSET UP ADORESS OF SILO 
sSTATUS REGISTER HIGH BYTE 


CODEM1 
DHRVEC .3.4.DHSCR,O,177776,7,10, 9 oi 


CODEM1 
MOV OHSSR , OHSLR 
INC DHSLR 





Se 
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0 001000 -* 1000 
sPROGRAM INITIALIZATION 
INTERRUPTS 


LIF NB <>, sDETERMINE MEMORY SIZE 











IIF NB <>, sSET UP TRACE TRAP RETURN 
901000 177570 $ -WORD 177570 ; SWITCH DHSCR ADDRESS 3; 4 
001002 177570 LIGHTS: .WORD 177570 ; LIGHTS ; 4 
3 4 
012767 000340 176764 START: MOV #340 ,PS sLOCK OUT INTERRUPTS 
001012 0127 013752 MOV @STACK .SP ;SET UP PROCESSOR STACK 
001016 012702 900024 MOV #24,R2 ; POINT TO VECTOR AREA 37 
001022 0127 012512 MOV @PFAIL ,CR2)+ sSET UP POWER FAIL TRAP 3 7 
001026 012722 MOV @340, (R2)+ sSERVICE AT LEVEL 7 37 
0010352 012722 010704 MOV @ERRORS, (R2)+ sERROR HANOL 3 7 
001036 0127 MOV @340, (R2)+ sSERVICE AT LEVEL : 7 
001042 012722 011116 MOV @TRPSRV, CR2)+ sGENERAL HANDLER DESPATCH SERVICE ; 7 
001046 012712 MOV #340, (R2) ; SERVICE AT LEVEL 7 ; 8 
001052 005067 010762 CLR sCLEAR TEST START FLAG 
001056 005067 010716 CLR PASCNT sCLEAR PASS COUNT 
001062 005067 01 CLR ERRCNT sCLEAR ERROR COUNT 
005067 010704 CLR ERRFLG sCLEAR ERROR FLAG 
001072 005067 010700 CLR ERRFLG s;CLEAR LAST ERROR PC 
001076 016746 176702 MOV 4, -C(SP) ; PUSH TRAP VECTOR 1 4 
001102 016746 176700 MOV 6, -(SP) ; 4 
001106 012767 001122 176670 MOV #13, 4 s SET UP TRAP VECTOR 3 4 
001114 005777 177660 TST GSWR s TEST SWITCH REGISTER ADDRESS 3 4 
tty se BR 2s s IF SUCCESSFUL, LEAVE IT ALONE =; : 
5 $ 
i 012767 000176 177650 MOV #176, SWR ’ ag! TO SOFT SWITCH DHSCR 3 4 
+33 7 177646 os CLR LIGHTS ; © MEANS WE ARE NOT GOING TO USE Lapets 1 4 
5 i 
oo11s4 005726 TST (SP)-« ; CLEAN UP STACK 5 4 
001136 orerae TST (SP)-+ ; 4 
001140 012667 17 MOV (SP)+, 6 ; 4 
tate 012667 176634 5 4 
001150 104401 01 TYPE sTYPE TITLE MESSAGE 
001154 005767 010656 ames sCHECK INITIALIZATION FLAG 
< > 
001160 001001 BNE sIF NOT 0, CHECK SWITCHES 
a sFOR REINITIALIZATION 
BEGIN sIF NOT 0, START TEST 
-ENDC | 
IF NB <> 
SIZE: CLR 
MOV sSET UP TIME OUT RETURN 
is: TST ;WILL TRAP WHEN NO MEMORY 39 
BR sLOCATION RESPONDED, CONTINUE 
28: MOV sRO CONT yd ADDRESS OF 
SUB NON EXISTANT MEMORY : 9 
MOV sRESTORE TRAPCATCHER 
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-ENDC 
IF MB <> 
TRACER: MOV #14 ,8#10 sSET UP ILLEGAL INSTRUCTION TRAP RETURN 
SXT 300 11740, 11/745 INSTRUCTION 
- « roeaaaitaa 311/40,45 RTT RETURN FROM TRACE TRAP 
1%: MOV RTI. TRIRET :1105.10,20 RTI RETURN FROM TRACE TRAP 
MOV #12,8010 sRESTROE TRAPCATCHER 
mane MOV @TRIRET , 0016 sSET UP TRACE TRAP VECTOR 
IF NB <DHRVEC> 
iF 6 <> 
001162 000404 _ BR VEC2 
TST INIFLG sIF INITIALIZE FLAG=0 
ane BEQ VEC2 sGET VECTOR AND CSR ADDRESS 
001164 032777 000001 177606 VECi: BIT #SW00, GSWR sIF SWOO=1, GET NEW VECTOR 3 4 
001172 001445 BEQ BEGIN 3AND CSR 
001174 VEC2: 3 4 
001174 012701 000300 #300 ,R1 3 4 
001200 012702 0900302 0302 ,R2 
012703 000004 04 ,R3 
0012190 010211 18; R2,CR1L) sRESTORE TRAPCATCHER 
001212 005012 CR2) SIN FLOATING VECTOR AREA 
001214 060301 RS .R1 
001216 060302 oR2 
001220 020127 001000 R1 ,@1000 
001224 001371 $ 
001226 sINPUT ADDRESS OF DEVICE VECTOR 
001230 012755 sMESSAGE “VECTOR ADDRESS-* 
001232 1 SCONVERT STRING TO OCTAL 
001234 sLOW LIMIT 
001236 770 sHIGH LIMIT ; 3 
001240 011766 sLOCATIONS TO BE FILLED 
001242 003 -BYTE NUMBER OF LOCATIONS 
001243 004 -BYTE 
001244 104403 
001246 012777 
001250 104405 
001252 
001254 177776 sHIGH LIMIT 
001256 011744 sLOCATIONS TO BE FILLED 
001260 007 sNUMBER OF LOCATIONS 


001261 010 sLSB MASK 


00 016767 010474 010474 
001270 005267 010470 


001274 005767 010536 
001300 
001302 005167 010530 








sPROGRAM START 
CHECK FOR PROGRAM START AT SELECTED ADDRESS 
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012767 


000340 176462 BEGIN: 


013752 
000002 


001400 
010456 


010450 
013162 
010404 


177452 


010426 


#340 PS 
@STACK , SP 
— 


2s 
@T1,RETRN 
STFLG 


3$ 
STFLG 
oMR 
SRETRN 








SEQ 27 


sLOCK OUT INTERRUPTS 

sSET UP PROCESSOR STACK 

3IF SWO1=1 ; 4 
sGET PC FOR PROGRAM START 

sGET PC 

sMESSAGE “TEST PC” 

sCONVERT STRING TO OCTAL 


sNORMAL START, TEST 1 
sIF LOOPING, BYPASS TYPEOUT 


sTYPE “R” TO INDICATE START 
sSTART TESTING 








001400 
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012767 
612767 
012767 


012767 
000002 
012777 


012703 
012705 


012767 
012777 
012777 


012777 


176370 
010376 
010364 


010360 


010306 


010372 


XBIT=BITX 

-REPT 20 

POPOVER \LINE, \BITX 
»NLIST 

LINE =LINE +1 
BITX=BITX+BITX 
-LIST 


.ENDR 
POPOVER \LINE, \BITX 


TS 
Ti: 


IF NB 
-ENDC 


XN=XNeo1 


1%: 


2s: 


4$: 


LINE =LINE+1 
BITX=BITX+BITX 
POPOVER \LINE, \BITX 





sRECEIVER PARITY LOGIC TEST ON LINE O. 

s TRANSMIT ONE CHARACTER TO THE RECEIVER 

sWITH ODD PARITY SET,BREAK SET,HDX SET. 

;THE RECEIVER WILL RECEIVE AN ALL 0S CHARACTER 
sWITH EVEN PARITY AND THEREBY 

sCAUSE A PARITY ERROR AND OVERRUN 

sCHARACTER LENGTH: 8 BITS 

sLINE SPEED: 9600 BAUD 


\XN, 10,48,1$ 
MOV 


#340 ,PS 
MOV #10, ICOUNT 
MOV 04%, ESCAPE 


MOV #1$ ,FREEZi 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 


MOV #0.R3 ;SET UP LINE @ 
0 sSET EXPECTED LINE NUMBER 
sVALID DATA FLAG, 
sPARITY ERROR, go OVERRWN, 





sAND EXPECTED DAT 
MOV s ACTUAL DATA TO BE TRANSMITTED 
MOV sSELECT LINE 0 
MOV ;SELECT 8 SITS/CHAR,ODD PARITY HDX, 
:9600 BAUD SPEED FOR LINE 0 
MOV sTRANSMIT 1 CHARACTER 
MOV sADDRESS OF TRANSMITTED DATA 
MOV 1 sSET BREAK FOR LINE 0. 
Vv #1 sSTART TRANSMITTER 

TSTB _— sWAIT FOR CHARACTER TO BE RECEIVED 
MOV SOHNRC ,R1 {GET RECEIVED CHARACTER 
oe so ie sCOMPARE EXPECTED AND RECEIVED DATA 

2? 
HLT 3 sDATA ERROR 
EMT 3 


SCOPE ;CHECK FOR ITERATIONS,LOOP 


sRECEIVER PARITY LOGIC TEST ON LINE 1. 





SEQ 28 


Os 





-— 


CZOHG -CO 





012767 
012767 
012767 


012767 


000003 
012777 
012703 
012705 


012767 
012777 
012777 


012767 


000340 
000010 
002044 











SEQ 29 
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; TRANSMIT ONE CHARACTER TO THE RECEIVER 
sWITH ODD PARITY SET,BREAK SET,HDX SET 
sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER 
;WITH EVEN PARITY AND THEREBY 
;CAUSE A PARITY ERROR AND OVERRUN 
sCHARACTER LENGTH: 8 BITS 
sLINE SPEED: 9600 BAUD 
TS \XN,10,48,1$ 
176226 Te: MOV #340,PS ;DISABLE ALL INTERRUPTS 
010234 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
010222 io Ao 04% ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
- < > 
010216 _— MOV 61$,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
XN=XNel 
010144 MOV @B8IT11,8DHSCR ;MASTER CLEAR INTERFACE 
MOV #1.R3  ;SET UP LINE @ 
MOV #1%400+130000, RS ;SET EXPECTED LINE NUMBER 
sVALID DATA FLAG, 
sPARITY ERROR,DATA OVERRUN, 
;AND EXPECTED DATA 
010230 MOV #377. TDATA sACTUAL DATA TO BE TRANSMITTED 
010120 MOV #1 ,8DHSCR sSELECT LINE 1 
010116 MOV @#73563,8DHLPR ;SELECT 8 ees ODD PARITY HDX, 
39600 BAUD SPEED FOR LINE 1 
010114 i$: MOV @-1i, S TRANSMIT 1 CHARACTER 
010104 MOV @TDATA,.@DHBA sADDRESS OF TRANSMITTED DATA 
010104 MOV @2, ;SET BREAK FOR LINE 1. 
010074 MOV 2, :S TART TRANSMITTER 
23: sg "gap sWAILT ~~ CHARACTER TO BE RECEIVED 
MOV @DENRC .R1 SGET RECEIVED CHARACTER 
Sa —— sCOMPARE EXPECTED AND RECEIVED DATA 
«* 
HLT 3 sDATA ERROR 
EMT 3 
4$: sCHECK FOR ITERATIONS,LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
POPOVER \LINE, \BITX 
sRECEIVER PARITY LOGIC TEST ON LINE 2. 
s TRANSMIT ONE CHARACTER TO THE RECEIVER 
sWITH ODD PARITY SET ,.GREAK SET.HDX SET. 
;THE RECEIVER WILL RECEIVE AN ALL O'S CHARACTER 
sWITH EVEN PARITY AND THEREBY 
sCAUSE A PARITY ERROR AND OVERRUN 
sCHARACTER LENGTH: 8 BITS 
sLINE SPEED: 9600 BAUD 
TS \XN,10,48,18 
176064 13: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
010072 MOV #10, ICOUNT :SET UP FOR 10 ITERATIONS 
010060 on MOV 04%, ESCAPE ISET UP TO ESCAPE TO NEXT TEST 
Bp <1$> 
010054 MOV 1%, FREEZi ;SET UP TO LOOP WITH DATA ; 3 


012767 


001774 





-— 





012767 
012777 
012777 


012777 
012777 
012777 
012777 
105777 

00375 


012767 
012767 
012767 


012767 


000005 
012777 
012703 
012705 


012767 
012777 
012777 


012777 


004000 
000002 
131000 


000377 
000002 
073563 
177777 
012046 
000004 
000004 
007714 


007710 








MACRO VO4.00 27-JUN-85 13:01:48 PAGE 21-2 = 
-ENDC 
XN*XNel 
010002 MOV #6I7T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV 62 ,R3 ;SET UP LINE @ 
MOV 024400 +130000,R5 sSET EXPECTED LINE NUMBER 
;VALID DATA FLAG, 
sPARITY ERROR, DATA OVERRUN, 
sAND EXPECTED DATA 
010066 MOV #377, TDATA sACTUAL DATA TO BE TRANSMITTED 
007756 MOV 62 ,8DHSCR sSELECT LINE 2 
007754 MOV #73563 , 8DHLPR sSELECT 8 BITS/CHAR,ODD PARITY HDX, 
19600 BAUD SPEED FOR LINE 2 
007752 i$: MOV #-1,80HBC S TRANSMIT 1 CHARACTER 
007742 MOV @TDATA,@DHBA sADDRESS OF TRANSMITTED DATA 
007742 MOV 04, R ;SET BREAK FOR LINE 2. 
007732 MOV 04, AR ISTART TRANSMITTER 
2s: Ly — sWAIT be CHARACTER TO BE RECEIVED 
MOV oR1 /GET RECEIVED CHARACTER 
oo = sCOMPARE EXPECTED AND RECEIVED DATA 
-* 
HLT 3 sDATA ERROR 
EMT 3 
43: sc sCHECK FOR ITERATIONS,LOOP 
LINE =LINE+1 
SITX=BITX+BITX 
POPOVER \LINE,\BITX 
sRECEIVER PARITY LOGIC TEST ON LINE 3. 
s TRANSMIT ONE CHARACTER TO THE RECEIVER 
sWITH ODD PARITY SET,BREAK HDX 
3 THE VER RECEIVE AN ALL 0’S CHARACTER 
;sWITH EVEN PARITY AND THEREBY 
sCAUSE A PARITY ERROR AND 
sCHARACTER LENGTH: 8 BITS 
sLINE SPEED: 9600 
TS \KXN, 10,48,18 
175722 T4: MOV 0340 ,P ;DISABLE ALL INTERRUPTS 
007730 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
007716 — ere 43 ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
, <i$> 
007712 MOV #1%,FREEZ1 3SET UP TO LOOP WITH DATA 3; 3 
XN=XNeo1 | 
007640 MOV #61711.@DHSCR sMASTER CLEAR INTERFACE 
MOV R3 ;SET UP LINE @ 
MOV €34400+130000, RS sSET EXPECTED LINE NUMBER 
:VALID DATA FLAG, 
;PARITY ERROR, DATA OVERRUN, 
;AND EXPECTED DATA 
007724 MOV #377, TDATA ;ACTUAL DATA TO BE TRANSMITTED 
007614 MoV #3 ,8DHSCR sSELECT LINE 3 
007612 MOV 473563 ,@DHLPR TSELECT 8 BITS/CHAR,ODD PARITY HDX, 
9600 BAUD SPEED FOR LINE 3 
007610 i$: MOV #-1,@DHBC ; TRANSMIT 1 CHARACTER 
007600 MOV STDATA,8DHBA sADDRESS OF TRANSMITTED DATA 


012777 





-— 











ee 





SEQ 31 
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012777 


012767 
012767 
012767 


012767 


000006 
012777 
012703 
012705 


012767 
012777 
012777 


000010 
000010 
007552 


007546 


007600 
007570 





MOV #10, 80HBCR ;SET BREAK FOR LINE 3. 
MOV #10, @OHBAR sSTART TRANSMITTER 
2s: i A —_— sWAIT FOR CHARACTER 70 BE RECEIVED 
3 
MOV @DHNRC .R1 ;GET RECEIVED CHARACTER 
a we ie sCOMPARE EXPECTED AND RECEIVED DATA 
.¢ 
HLT 3 ;DATA ERROR 
EMT 3 
4$: ScoP ;sCHECK FOR ITERATIONS,LOOP 
LINE =LINE+1 
BITX=BITX+BITX 


POPOVER \LINE, \BITX 


sRECEIVER PARITY LOGIC TEST ON LINE 4. 

s; TRANSMIT ONE CHARACTER TO THE RECEIVER 

sWITH ODD PARITY SET,BREAK SET,HOX SET. 

s;THE RECEIVER WILL RECEIVE AN ALL 0’S CHARACTER 
sWITH EVEN PARITY AND THEREBY 

s;CAUSE A PARITY ERROR AND OVERRUN 

sCHARACTER LENGTH: 8 BITS 





sLINE SPEED: 9600 BAUD 
TS \XN, 10,448,138 
TS: MOV #340 PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
‘on pe 04% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
5 <1$> 
MOV 41% ,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNe1 
MOV @#68IT11,80HSCR ;MASTER CLEAR INTERFACE 
MOV #4,.R3 ;SET UP LINE @ 
MOV $42400+130000, ;SET EXPECTED LINE NUMBER 
;VALID DATA FLAG, 
sPARITY ERROR.DATA OVERRUN, 
;AND EXPECTED DATA 
MOV 9377, TDATA ;ACTUAL DATA TO BE TRANSMITTED 
MOV 04 ,8DHSCR 3 T LINE 4 
MOV #73563 .Q@DHLPR ;SELECT 8 BITS/CHAR,ODD PARITY HDX. 
| 39600 BAUD SPEED FOR LINE 4 
i$: MOV #-1,@0HBC s TRANSMIT 1 CHARAC 
MOV @TDATA .SDHBA sADDRESS OF TRANSMITTED DATA 
MOV #20, SDHBCR ;SET BREAK FOR LINE 
MOV $20, BDHBAR sSTART T TTER 
23: pS gag sWAIT an CHARACTER TO BE RECEIVED 
MOV SOHNRC ,R SGET RECEIVED CHARACTER 
nad R5 Ri a COMPARE EXPECTED AND RECEIVED DATA 
«* 
HLT 3 sDATA ERROR 
EMT 3 
4$: SCOPE  ;CHECK FOR ITERATIONS,LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
POPOVER \LINE, \BITX 
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- 


002514 
002514 
002522 
002530 








——— 


SEQ 32 
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012767 
012767 
012767 


012767 
000007 
012777 
012703 
012705 


012767 
012777 
012777 


012777 


012767 000340 175254 
012767 000010 007262 
012767 002654 007250 


000377 
000005 
073563 
177777 
012046 
000040 
000040 
007246 
007242 


;RECEIVER PARITY LOGIC TEST ON LINE S. 
;TRANSMIT ONE CHARACTER TO THE RECEIVER 

;WITH ODD PARITY SET,BREAK SET,HDX SET. 

;THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER 
;WITH EVEN PARITY AND THEREBY 

;CAUSE A PARITY ERROR AND OVERRUN 

;CHARACTER LENGTH: 8 BITS 

;LINE SPEED: 9600 BAUD 


TS \XN,10,4$,1$ 
T6: MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
MOV 04% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
-IF NB <i$> 
MOV #1$,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNe1 
MOV #B81T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV #5,R3 ;SET UP LINE ¢@ 
MOV #54400+130000,R5 ;SET gt He LINE NUMBER 
;VALID DATA FLAG, 
sPARITY ERROR, DATA OVERRUN, 
;AND EXPECTED DATA 
MOV #377, TDATA sACTUAL DATA TO BE TRANSMITTED 
MOV #5 .8DHSCR sSELECT LINE 5 
MOV #73563 ,@DHLPR sSELECT 8 BITS/CHAR.ODD PARITY HDX, 
39600 BAUD SPEED FOR LINE 5 
1$: MOV #-1,@0HBC S TRANSMIT 1 CHARACTER 
MOV #TDATA,@DHBA sADDRESS OF TRANSMITTED DATA 
MOV #40, sSET BREAK FOR LINE 5. 
MOV #40, AR SSTART TRANSMITTER 
23: Lg — s;WAIT i CHARACTER TO BE RECEIVED 
MOV SDHNRC .R1 ;GET RECEIVED CHARACTE 
aA or? cae sCOMPARE EXPECTED AND RECEIVED” DATA 
* 
HLT 3 sDATA ERROR 
EMT 3 
4$: sCHECK FOR ITERATIONS,LOOP 
LINE =LINE+1 
BITX=BITX+BITX 


POPOVER \LINE, \BITX 


TS 
T7: 


.IF NB 





sRECEIVER PARITY LOGIC TEST ON LINE 6. 
; TRANSMIT _ CHARACTER TO THE RECEIVER 


| SET.HDX SET. 
: VE AN ALL 0’S CHARACTER 
sWITH EVEN PARITY AND THEREBY 
sCAUSE A PARITY ERROR AND OVERRUN 


sCHARACTER LENGTH: 8 BITS 
sLINE SPEED: 9600 BAUD 


\XN,10,4$,18 

MOV #340 PS sDISABLE ALL INTERRUPTS 

MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 

MOV $, ESCAPE SSET UP TO ESCAPE TO NEXT TEST 
<1$> 
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012767 
012767 
012767 


012767 


012767 
012777 
012777 


012777 


002604 


177777 


607244 


007172 


sSET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 
LINE @ 


;SET gt He LINE NUMBER 
sVALID DATA F 
sPARITY ERROR, DATA OVERRUN, 
sAND EXPECTED DATA 
sACTUAL DATA TO BE TRANSMITTED 
sSELECT LINE 6 
sSELECT 8 BITS/CHAR,ODD PARITY HDX, 
9600 BAUD SPEED FOR LINE 6 
; TRANSMIT 1 CHARACTER 
sADDRESS OF TRANSMITTED DATA 
sSET BREAK FOR LINE 6. 
sSTART TRANSMITT 


AR ER 
sWAIT FOR CHARACTER TO BE RECEIVED 


; 
sGET RECEIVED CHARACTER 


oR1 
sCOMPARE EXPECTED AND RECEIVED DATA 


MOV #1%,FREEZi 
XN=XNo1 
MOV #681T11,8DHSCR 
MOV 66 ,.R3 ;SET UP 
MOV #62400+130000,R5 
MOV $377, TDATA 
MOV #6 ,8DHSCR 
MOV #73563 , @DHLPR 
1%: MOV 1, 80HBC 
MOV STDATA. @DHBA 
MOV #100, 8DHBCR 
MOV #100, 
2s: TSTB 8DHSCR 
BPL 2$ 
MOV 
CMP RS ,R1 
BEQ +4 
HLT 3 sDATA ERROR 
EMT 3 
4$: SCOPE sCHECK FOR ITERATIONS,LOOP 
LINE =LINE+1 
BITX=BITX+BITX 


POPOVER \LINE,\BITX 


sRECEIVER PARITY LOGIC TEST ON LINE 7. 
sTRANSMIT ONE CHARACTER TO THE RECEIVER 


TS 
T10: 


-IF NB 


-ENDC 
XN=*XNel 


i$: 


sWITH ODD PARITY SET, 


ET,HDOX SET. 


;THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER 
THEREBY 


sLINE SPEED: 9600 BAUD 


\XN,10,43,1$ 
#340, 





MOV sDISABLE ALL INTERRUPTS 

MOV #10, TCOUNT sSET UP FOR 10 ITERATIONS 

a 043 , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 

<1$> 

MOV #1$,FREEZ1 sSET UP TO LOOP WITH DATA 

MOV #81711, 8DHSCR deg CLEAR INTERFACE 

MOV #7,.R3 ;SET UP LINE @ 

MOV #74400 +130000,R5 sSET EXPECTED LINE NUMBER 
sVALID DATA FLAG, 
sPARITY ERROR,DATA OVERRUN, 
sAND EXPECTED DATA 

MOV #377, TDATA sACTUAL DATA ” BE TRANSMITTED 

MOV 97, sSELECT LINE 7 

MOV #73563 , BDHLPR ;SELECT 8 BITS/CHAR , ODD “ue hid HDX, 

39600 BAUD SPEED FOR LINE 7 
MOV #-1,@D0HBC ; TRANSMIT 1 CHARACTER 








SEQ 33 





a: 
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012767 
012767 
012767 


012767 


000012 
012777 
012703 
012705 


012767 
012777 
012777 


012777 
012777 


2s: TSTB 


4%: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 


@TDATA,@DHBA sADDRESS OF ry DATA 

#200 , BDHBCR ;SET BREAK FOR LINE 7 

#200, sSTART TRANSMITTER 

— ;WAIT a CHARACTER TO BE RECEIVED 
R1 SGET RECEIVED CHARACTER 

ot me ;COMPARE EXPECTED AND RECEIVED DATA 

.¢ 

: sDATA ERROR 


s;CHECK FOR ITERATIONS,LOOP 


POPOVER \LINE, \BITX 


sRECEIVER PARITY LOGIC TEST ON LINE 10. 

s; TRANSMIT ONE CHARACTER TO THE RECEIVER 

sWITH ODD PARITY SET, BREAK SET,HDX SET. 

sTHE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER 
sWITH EVEN PARITY AND THEREBY 

s;CAUSE A PARITY ERROR AND OVERRUN 

sCHARACTER LENGTH: 8 BITS 

sLINE SPEED: 9600 BAUD 


TS \XN,10,4%,1$ 
Til: MOV #340, ;DISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
= ee #4% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
2 <1$> 
MOV #1$ ,FREEZ1L ;SET UP TO LOOP WITH DATA 
-ENDC 
XN=XNel1 
MOV @81IT11,80HSCR ;MASTER CLEAR INTERFACE 
MOV #10,R3 ;SET UP LINE @ 
MOV $10#400+ 130000 ,R5S ;SET EXPECTED LINE NUMBER 
:VALID DATA FL 
sPARITY ERROR, DATA OVERRUN, 
;AND EXPECTED DATA 
MOV #377, TOATA s ACTUAL DATA TO BE TRANSMITTED 
MOV #10, @0HSCR sSELECT LINE 10 
MOV #73563,@DHLPR ;SELECT 8 BITS/CHAR.ODD PARITY HDX, 
39600 BAUD SPEED FOR LINE 10 
i$: MOV @-1,@0HBC VTRANSHET 1 CHARACTER 
MOV @TDATA,@DHBA sADDRESS OF TRANSMITTED DATA 
MOV | P . ;SET AK FOR LINE 10. 
MOV D0, sSTART TRANSMITTER 
2s: pi Lig aa sWAIT FOR CHARACTER TO BE RECEIVED 
MOV SDHNRC .R ;GET RECEIVED CHARACTER 
a 4 a «COMPARE EXPECTED AND RECEIVED DATA 
.* 
HLT 3 ;DATA ERROR 
EMT 3 
43: SCOPE ;CHECK FOR ITERATIONS,LOOP 
LINE =LINE+1 
BITX=BITX+BITX 


POPOVER \LINE, \BITX 











_———m 
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sRECEIVER PARITY LOGIC TEST ON LINE 11. 

; TRANSMIT ONE CHARACTER TO THE RECEIVER 

sWITH ODD PARITY SET,BREAK SET,HDX SET. 

;THE RECEIVER WILL RECEIVE AN ALL 0’S CHARACTER 
;WITH EVEN PARITY AND THEREBY 

sCAUSE A PARITY ERROR AND OVERRUN 

sCHARACTER LENGTH: 8 BITS 

sLINE SPEED: 9600 BAUD 
















003162 TS \XN,10,43,18 
003162 012767 000340 174606 T12: MOV #340,PS sDISABLE ALL INTERRUPTS 
003170 012767 000010 006614 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
003176 012767 003322 006602 — att 4%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
; <1$> 
003204 012767 003252 006576 — MOV 01%, FREEZ1 ;SET UP TO LOOP WITH DATA s 3 
000013 XN=XNeo1 
003212 012777 004000 006524 MOV @8IT11,@0HSCR ;MASTER CLEAR INTERFACE 
003220 012703 000011 MOV #11,R3 ;SET UP LINE @ 
003224 012795 134400 MOV #112400+130000,R5 sSET EXPECTED LINE NUMBER 
sVALID DATA FLAG, 
sPARITY ERROR,DATA OVERRUN, 
sAND EXPECTED DATA 
003230 012767 000377 006610 MOV #377, TDATA sACTUAL DATA TO BE TRANSMITTED 
003236 012777 000011 006500 MOV #11,8DHSCR sSELECT LINE 11 
003244 012777 073563 006476 MOV #73563 , @DHLPR ;SELECT 8 BITS/CHAR,ODD PARITY HDX, 
39600 BAUD SPEED FOR LINE 11 
003252 012777 177777 006474 18: MOV sTRANSMIT 1 ACTER 
003260 012777 012046 006464 MOV sADDRESS OF TRANSMITTED DATA 
003266 012777 001000 006464 MOV sSET BREAK FOR LINE 11. 
003274 012777 001000 006454 MOV GOHBAR sSTART TRANSMITTER 
003302 105777 006436 2s: TSTB SOHSCR ;WAIT FOR CHARACTER TO BE RECEIVED 
003306 100375 BPL at $ 
003310 017701 006432 MOV SDHNRC .R1 sGET RECEIVED CHARACTER 
003314 020501 ChP RS.Ri $;COMPARE EXPECTED AND RECEIVED DATA 
003316 001401 BEQ 04 
003320 HLT 3 sDATA ERROR 
003320 104003 EMT 3 
003322 104400 4$: SCOPE ;CHECK FOR ITERATIONS,LOOP 
000012 LINE =LINE+i 
002000 BITX=BITX+BITX 
003324 POPOVER \LINE, \BITX 
sRECEIVER PARITY LOGIC TEST ON LINE 12. 
3; TRANSMIT CHARACTER TO THE RECEIVER 


ONE 
iWITH ODD PARITY SET BREAK ol gg SET. 
VER WILL RECEIVE AN 7. 0'S CHARACTER 


CHARACTER LENGTH: 8 BITS 
BAUD 


; 
sLINE SPEED: 9600 


003324 TS \XN, 10,49,18 

003324 012767 000340 174444 113: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
003332 012767 0900010 006452 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
003340 012767 003464 006440 MOV 4%, ESCAPE 3sSET UP TO ESCAPE TO NEXT TEST 





eae 


ee cS 


CZOHG-CO 


003346 


003354 
003362 
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IF NB <1$> 
012767 003414 006434 — MOV 1% ,FREEZ1 ;SET UP TO LOOP WITH DATA 
000014 XN=XNeo1 
012777 004000 006362 MOV #8IT11,@80HSCR —o CLEAR INTERFACE 
012703 000012 MOV #12,R3 ;SET UP LINE @ 
012705 135000 MOV #124400+130000 ,R5 sSET EXPECTED LINE NUMBER 
sVALIO DATA FLAG, 
sPARITY ERROR, DATA OVERRUN, 
;AND EXPECTED DATA 
012767 000377 006446 MOV #377, TDATA s ACTUAL DATA TO BE TRANSMITTED 
012777 000012 006336 MOV #12, CR sSELECT LINE 12 
012777 073563 006334 MOV #73563 .@DHLPR sSELECT 8 BITS/CHAR,ODD PARITY HDX, 
39600 BAUD SPEED FOR LINE i2 
012777 177777 006332 i$: MOV $-1i, c S TRANSMIT i CHARACTER 
012777 012046 006322 MOV @TDATA,.@DHBA sADDRESS OF TRANSHITTED DATA 
012777 2000 MOV €2000., SOHBCR sSET BREAK FOR LINE i2. 
012777 002000 006312 MOV #2000, AR ;ST ART TRANSHITTER 
105777 006274 2s: Sg  aaaai sWAIT ~ CHARACTER TO BE RECEIVED 
017701 006270 MOV RL :GET RECEIVED CHARACTER 
020501 CMP R5 .R1 sCOMPARE EXPECTED AND RECEIVED DATA 
001401 BEQ .o4 
HLT 3 sDATA ERROR 
104003 EMT 
104400 43: SCOPE ;CHECK FOR ITERATIONS,LOOP 
000013 LINE =LINE +i 
004000 BITX=BITX+BITX 
POPOVER \LINE, \BITX 
sRECEIVER PARITY LOGIC TEST ON LINE 13. 
TRANSMIT ONE CHARACTER TO THE 
sWITH ODD PARITY SET BREAK 
sWITH EVEN PARITY AND 
sCAUSE A PARITY ERROR AND 
sCHARACTER LENGTH: 8 BITS 
SINE SPEED: 9600 
TS \XN, 10,489,189 
012767 000340 174302 114: MOV #340 ..PS sODISABLE ALL INTERRUPTS 
012767 000010 006310 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
012767 003626 006276 =. at 043 , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
2 <i$> } 
012767 003556 006272 om MOV #1$,FREEZ1 3SET UP TO LOOP WITH DATA 
000015 XN=XNeo1 
012777 004000 006220 MOV 66IT11,@D0HSCR sMASTER CLEAR INTERFACE 
012703 000013 MOV #13,R3 ,SET UP LINE @ 
012705 135400 MOV #132400+ 130000 .R5 3SET E LINE NUMBER 
sVALID DATA FLAG, 
sPARITY ERROR, DATA OVERRUN, 
SAND EXPECTED DATA 
012767 000377 006304 MOV @377,TDATA 3 ACTUAL DATA TO BE TRANSMITTED 
012777 000013 006174 MOV #13, @OHSCR : ECT LINE 13 
012777 073563 006172 MOV #73563 , BDHLPR :SELECT 8 BITS/CHAR,ODD PARITY HDX, 





39600 BAUD SPEED FOR LINE 15 





SEQ 36 


a 
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012777 


012767 
012767 
012767 


012767 


177777 
012046 
004000 
004000 
006132 


006126 


0000 
003770 
003720 


SOLS ES CE SE SS ET TS OE EE NT 















SEQ 37 
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006170 18: MOV —s- @- 1, @OHBC ;TRANSMIT 1 CHARACTER 
006160 MOV §« @TDATA,@DHBA = ; ADDRESS OF TRANSMITTED DATA 
006160 MOV § @4000,@0HBCR § ;SET BREAK FOR LINE 13. 
006150 MOV  @4000,G0HBAR =; START TRANSMITTER 
2%; TsTB —SOHSCA IWALT FOR CHARACTER TO BE RECEIVED 
MOV BOHNRC,, RA \GET RECEIVED CHARACTER 
CH —-RS,R1_ COMPARE EXPECTED AND RECEIVED DATA 
.¢ 
HT 8 sDATA ERROR 
4; SCOPE CHECK FOR ITERATIONS,LOOP 
LINE *L INE +t 
BITX=BITX+BITX 
POPOVER \LINE, \BITX 
sRECEIVER PARITY LOGIC TEST ON LINE 14. 
; TRANSMIT ONE CHARACTER TO THE RECEIVER 
;WITH ODD PARITY SET,BREAK SET.HOX SET. 
;THE RECEIVER WILL RECEIVE AN ALL 0'S CHARACTER 
;WITH EVEN PARITY AND THERESY 
;CAUSE A PARITY ERROR AND 
;CHARACTER LENGTH: 8 BITS 
sLINE : 9600 BAUD 
TS \XN, 10,49, 19 
174140 TiS: MOV | @340,PS ;DISABLE ALL INTERRUPTS 
006146 MOV «#10, COUNT SET UP FOR 10 ITERATIONS 
006134 a $ ESCAPE SET UP TO ESCAPE TO NEXT TEST 
> < 
006130 MOV 019, FREEZI ;SET UP TO LOOP WITH DATA 8 
XN=XNeoL 
006056 MOV 
MOV 
MOV 
006142 MOV 
006032 MOV 
006030 MOV 
006026 18: MOV 
006016 MOV 
006016 MOV 
MOV 
MOV RA }GET RECEIVED CHARACTER 
oA sCOMPARE EXPECTED AND RECEIVED DATA 
? 
MT 3 DATA ERROR 
A$: SCOPE CHECK FOR ITERATIONS.LOOP 
LINE*LINE+1 
BITX=*BITX+BITX 








ta ee oe 
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003772 
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012767 
012767 
012767 


012767 


012777 
012777 


012767 
012767 


173776 
006004 
005772 
005766 


005714 
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POPOVER \LINE, \BITX 


TS 
T1i6: 
.IF NB 


-ENOC 
XN*XNeo1 





TS 
000340 173634 Ti7: 
005642 


000010 


37 


sRECEIVER PARITY LOGIC TEST ON LINE 15. 
RANSMIT ONE 


CHARACTER TO THE RECEIVER 


sWITH OOD PARITY SET,BREAK SET,HOX SET. 

;THE RECEIVER WILL RECEIVE AN ALL 0’S CHARACTER 
sWITH EVEN PARITY AND THEREBY 

sCAUSE A PARITY ERROR AND OVERRUN 

sCHARACTER LENGTH: 8 BITS 

sLINE SPEED: 9600 BAUD 





























\XN,10,.48,18 
MOV @340 PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
ry 04%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
< > 
MO #1%,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
MOV #61IT11.,8DHSCR — CLEAR INTERFACE 
MOV #15.R3 ;SET UP LINE @ 
MOV #152400+ 130000, RS 3SET NUMBER 
MOV 0377, TDATA 
MOV #15, @DHSCR 
MOV #73563 , SOHLPR 
MOV @-1,@0HBC 
MOV @TDATA,GDHBA 
MOV 
MOV 
TST8 
SPL 2 
MOV GOHNAC ,R1 CHARACTER 
.¢ 
pod 3 sDATA ERROR 
SCOPE ,CHECK FOR ITERATIONS,LOOP 


\XN, 10,49,18 
MOV €340,PS 


MOV 





¢ sDISABLE ALL INTERRUPTS 
#10, ICOUNT sSET UP FOR 10 ITERATIONS 





: 
S 


173472 





SEQ 39 
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- a pH 04% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
7p <1$> 
— MOV #1%,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
XN@XNeol 
MOV @6IT11,@D0HSCR sMASTER CLEAR INTERFACE 
MOV #16,R3 ;SET UP LINE @ 
MOV #162400+ 130000 ,R5 sSET EXPECTED LINE NUMBER 
sVALID DATA FLAG, 
sPARITY ERROR,DATA OVERRUN, 
sAND EXPECTED DATA 
MOV #377. TOATA sACTUAL DATA TO BE TRANSMITTED 
MOV #16, @DHSCR sSELECT LINE 16 
MOV #73563 ..Q0HLPR ;SELECT 8 BITS/CHAR,ODD PARITY HOXx, 
9600 SPEED FOR LINE 16 
is: MOV #@-1,6DH8C CHARACTER 
MOV - @TDATA,@DHBA s ADORE TRANSMITTED DATA 
MOV #40000, 
MOV #40000, sSTART TRANSMITTER 
2s: =  maead sWAIT FOR CHARACTER TO BE RECEIVED 
8 
MOV GDHNAC .R1 sGET RECEIVED CHARACTER 
yo ww? on sCOMPARE EXPECTED AND RECEIVED DATA 
.* 
HLT 3 sDATA ERROR 


ENT 
4%: SCOPE ;CHECK FOR ITERATIONS,LOOP 






UP TO ESCAPE TO NEXT TEST 


IF WB 
sSET UP TO LOOP WITH DATA 3 3 


-ENDC 
XN©XNo1 


-— 


14 


004522 
004530 





012767 
012767 
012767 


000022 
012777 
012700 
005001 


012702 
012703 
012777 


012777 


012777 
105061 


027363 
012450 





173330 


005254 


005236 
005232 


005220 








SEQ 40 


19600 BAUD SPEED FOR LINE 17 


1s: MOV —«- @-1, BOHBC sTRANSMIT 1 CHARACTER 
MOY @TOATA.GOHBA ADDRESS OF TRANSMITTED DATA 
MOV «#100000, @0HBCR SET BREAK FOR LINE 17 
MOV «#100000, GDHBAR ;START TRANSMITTER 

23: TST@ —GOHSCR “sMAIT FOR CHARACTER TO BE RECEIVED 
MOV = BOHNRC,R1 ;GET RECEIVED CHARACTER | 
CHP —_R5,R1_— sCOMPARE EXPECTED AND RECEIVED DATA 

.¢ 

M1 3 DATA ERROR 
erie 

43: SCOPE CHECK FOR ITERATIONS, LOOP 

LINE =LINE+i 

BITX=BITX+BITX 


SUPERCAL IFRIGILISTICEXPEHALIDOSIS 


sMULTI-LINE PARITY DATA TEST 

s TRANSMIT A BINARY COUNT WITH ODD PARITY 

sPATTERN ON ALL LINES. 

sSILO ALARM LEVEL SET TO 0 

sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS 
sIN INTERRUPT MODE. 

s TRANSMITTER INTERRUPT WILL BE DISABLED 

sLINE SPEED: 2400 BAUD 

sCHARACTER LENGTH: 8 + PARITY 


27363,000,8 


TS \XN,10,118 
T21: MOV @340,PS sDISABLE ALL INTERRUPTS 
#10, ICOUNT sSET UP FOR 10 ITERATIONS 
ee MOV #118 .ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
<> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
-ENDC 
¥N=XNel 
MOV @681T11.,@0HSCR sMASTER CLEAR INTERFACE 
MOV #16. .RO ;SET UP TO START 16. LINES 
CLR wh 3C AND BUS ADDRESS IEs 
;AND RECEIVED DATA STORAGE 
MOV #200 ,Re ;SET UP TO LOAD HIGH BYTE 
MOV #1,R3 ;OF EXPECTED DATA 
“aS pod @TBUF . SOHBA ;LOAD BUSS ADDRESS 
MOV @-400, SOHBC ;LOAD BYTE COUNT 
-ENOC 
iF ION 7,8 
MOV @-200, BOHBC sLOAD BYTE COUNT 
-ENDC 
IF ION 6.8 
MOV @-100, @DHBC ;LOAD BYTE COUNT 
-ENOC 
IF ION 5,8 
eune MOV @-40, @OHBC ;LOAD BYTE COUNT 
MOV 427363 , 8DHLPR ;SET LINE art. AND 
;CHARACTER LENGTH 8 + ODD PARITY 
CLRB RBUF CR1) ;CLEAR NEXT RECEIVED CHARACTER 
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SEQ 41 
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-— 





105777 
00026 


012450 
005200 


005116 
040000 


005032 
005032 


000340 173034 


005106 


005026 


6$: 


73: 


10$: 
113%: 


12$: 


13%: 


MOVE R2 ,RBUF CRS) sLOAD HIGH BYTE 

INC @OHSCR sADVANCE TO NEXT LINE 

INC Re sUPDATE POINTER TO 

ADD #2,R1 sLOW AND .AIGH BYTE OF 

ADO #2,R3 sNEXT EXPECTED CHARACTER 
DEC RO sCONTINUE IF ALL LINES 

BNE 1$ sNOT SET UP 

MOV 06$ , BOHRVEC sSET UP POINTER FOR 

MOV #240 , BDHRLVL sRECEIVER INTERRUPT 

MOV #100 ,@DHSCR sENABLE RECEIVER INTERRUPT 
MOV @-1, @OHBAR s;SET ALL BAR BITS 

CLR PS sENABLE INTERRUPTS 

JMP 12$ sGO TO TRANSMITTER WAITING ROUTINE 


sRECEIVER INTERRUPT SERVICE ROUTINE 


s;CHECK FOR RECEIVER DONE AND NO 
sCHECK RECEIVED DATA FOR “VALID 


ERRORS 
DATA” FLAG AND NO ERRORS 


sVERIFY THAT RECEIVED DATA IS CORRECT 


sCHECK FOR END OF PASS 


= _— :IF CHARACTER AVAILABLE NOT SET, ERROR 
=. ee sIF SILO OVERRUN SET. ERROR 
* 
a : sSILO OVERRUN, ERROR 
MOV Ri sREAD CHARACTER FROM SILO 
MOV R1,R2 sEXTRACT LINE NUMBER 
SWAB R2 
BIC #177760,R2 
MOV R2,RS ;SAVE LINE NUMBER 
ASL Re sUSE LINE NUMBER AS OFFSET 
oe —— sCOMPARE EXPECTED AND RECEIVED DATA 
.¢ 
MOV RBUF CR2) RS ;GET EXPECTED DATA 
“a : ;DATA ERROR 
RBUF CR2) ;sUPDATE EXPECTED CHARACTER 
RTI ; CONTINUE 
pod : sCHARACTER AVAILABLE NOT SET. ERROR 
POP2SP sRESTORE STACK 
MOV 661IT11,80HSCR sMASTER CLEAR INTERFACE 
13$ SRESTART TEST 


sWAIT FOR ALL BAR BITS TO CLEAR 


ALL BAR BITS HAVE CLEARED, 


s WHEN 
;WAIT FOR SILO TO EMPTY 


sWHEN SILO IS EMPTY, SCOPE ON TEST 


1ST QOHBAR ;WAIT FOR ALL BAR BITS TO CLEAR 
TSTB GOHSLR ;WAIT FOR SILO 10 EMPTY 

MOV 0340,PS ;PREVENT INTERRUPTS 

SCOPE ;CHECK FOR ITERATIONS, LOOP 


CZOHG -CO 


-— 


15 004744 
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012767 
012767 
012767 


000023 
012777 
012700 
005001 


012702 
012703 
012777 


012777 


012777 


004750 


004732 


004714 


SUPERCALIFRIGILISTICEXPEHALIDOSIS 


T22 


-IF NB 


-ENOC 
XN=XNel 





TS \XN,10,11$ 
: MOV 


27323,EVEN,8 


sMULTI-LINE PARITY DATA TESi 

s; TRANSMIT A BINARY COUNT WITH EVEN PARITY 

sPATTERN ON ALL LINES. 

;SILO ALARM LEVEL SET TO 0 

sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS 
sIN INTERRUPT MODc. 

;TRANSMITTER INTERRUPT WILL BE CISABLED 

sLINE SPEED: 2400 BAUD 

sCHARACTER LENGTH: 8 + PARITY 


#340 .PS 
MOV #10, ICOUNT 
MOV 011% ,ESCAPE 


MOV @,FREEZ1 


sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 


sSET UP TO LOOP WITH DATA 


MOV #61711 ,@DHSCR 
MOV oe 


sMASTER CLEAR INTERFACE 
sSET UP TO START 16. LINES 
;COUNT AND BUS ADDRESS 
sAND RECEIVED DATA STORAGE 


MOV #200 ,R2 ;SET UP TO LOAD HIGH BYTE 

MOV #1,R3 ;0F EXPECTED DATA 

HOV eTBUF , CDHBA ;LOAD BUSS ADDRESS 

MOV @-400, SOHBC ;LOAD BYTE COUNT 

ION 7,8 

MOV @-200, BOHBC ;LOAD BYTE COUNT 

ION 6.8 

MOV @-100, SDHBC ;LOAD BYTE COUNT 

IDN 5,8 

MOV @-40, @DHBC ;LOAD BYTE COUNT 

MOV 027323, @DHLPR ;SET LINE SPEED AND 
;CHARACTER LENGTH 8 + EVEN PARIT 

CLRB —s- RBUF(R1) ;CLEAR NEXT RECEIVED CHARACTER 

MOVE 2, RBUFCR3) ;LOAD HIGH BYTE 

INC @OHSCR ;ADVANCE TO NEXT LINE 

INC ;UPDATE POINTER TO 

ADD @2,R1 ;LOW AND HIGH BYTE OF 

ADD €2,.R3 ;NEXT EXPECTED CHARACTER 

DEC RO ;CONTINUE IF ALL LINES 

BNE i$ ;NOT SET UP 


sSET UP POINTER FOR 
sRECEIVER He ul 


sRECEIVER INTERRUPT SERVICE ROUTINE 


sSET UP TO ESCAPE TO NEXT TEST 


IVER INTERRUPT 


ear e EET AONE RE SE RY 


A SE LIT EE ERT Tis NT Oe RT a 


SEQ 42 


ERRUPTS 
:GO TO TRANSMITTER WAITING ROUTINE 


CZ0HG -CO 


16 


005250 
005250 
005256 











~~ —. 


SEQ 43 
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105777 


004612 


040000 


004574 


177760 


012450 
012450 


012450 


004602 


004522 


6$: 


7$: 


10$: 
11$: 


12$: 


13%: SCOPE 
SUPERCALIFRIGILISTICEXPEHALIDOSIS 


012767 000340 172520 T23: 


012767 000010 004526 


TS \XN,10,11$ 
MOV 


sCHECK FOR RECEIVER DONE AND NO ERRORS 

sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS 
;VERIFY THAT RECEIVED DATA IS CORRECT 

s;CHECK FOR END OF PASS 


TTB SOHSCi ;IF CHARACTER AVAILABLE NOT SET, ERROR 
BIT #40000, @DHSCR ;IF SILO OVERRUN SET, ERROR 
+ 
HT 2 ;SILO OVERRUN, ERROR 
MOV @DHNRC ,R1 ;READ CHARACTER FROM SILO 
MOV R1,R2 sEXTRACT LINE NUMBER 
SWAB Ss 
BIC #177760,R2 
MOV R2,R3 ;SAVE LINE NUMBER 
ASL R2 ;USE LINE NUMBER AS OFFSET 
CHP RBUF (R2) RI ;COMPARE EXPECTED AND RECEIVED DATA 
.* 
MOV RBUF (R2).RS ;GET EXPECTED DATA 
HLT 2 ;DATA ERROR 
EMT 3 
RBUF (R2) ;UPDATE EXPECTED CHARACTER 
RTI ; CONTINUE 
HT i ;CHARACTER AVAILABLE NOT SET, ERROR 
POP2sP sRESTORE STACK 
MOV @BIT11,@DHSCR ;MASTER CLEAR INTERFACE 
BR 13$ ;RESTART TEST 


sWAIT FOR ALL BAR BITS TO CLEAR 
sWHEN ALL BAR BITS WAVE CLEARED, 
SWAIT FOR SILO TO EMPTY 

sWHEN SILO IS EMPTY, SCOPE ON TEST 


TST SOHBAR ;WAIT FOR ALL BAR BITS TO CLEAR 
TSTB @OHSLA ;WAIT FOR SILO TO EMPTY 
MOV a340, PS ;PREVENT INTERRUPTS 


s;CHECK FOR ” cei LOOP 
27362,00D,7 


sMULTI-LINE PARITY DATA TEST 
s TRANSMIT A BINARY COUNT WITH ODD PARITY 
sPATTERN ON ALL LINES. 
;SILO ALARM LEVEL SET TO 0 
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS 
sIN INTERRUPT MODE. 
sTRANSMITTER INTERRUPT WILL BE DISABLED 
sLINE SPEED: 2400 BAUD 
; CHARACTER LENGTH: 7 + PARITY 


sDISABLE ALL INTERRUPTS 


9340 ,PS 
;SET UP FOR 10 ITERATIONS 


MOV #10, ICOUNT 





CZOHG -CO 


-— 


005264 


005324 
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012767 005516 004514 


000024 
012777 
012700 
005001 


012702 
012703 
012777 


012777 


012777 


105777 
26 


177600 


004306 
040000 


004270 


177760 


004444 


004426 


004422 


004410 


004366 


004334 


004276 


-IF NB 


.-ENDC 
XN=XNeo1 


i$: 
iF 


-ENOC 
ar 


-ENDC 
IF 


-ENDC 
IF 


-ENDC 


6$: 


7$: 


MOV #11$ ,ESCAPE 
MOV @,FREEZ1 


MOV #6IT11,@0HSCR 
MOV #16. ,RO0 


CLR Ri 

MOV #200 ,R2 

MOV #1,R3 

MOV @TBUF , BDHBA 
ION 8,7 


MOV #-400, SDHBC 


IDN 7,7 
MOV @-200, SDHBC 
IDN 6,7 
MOV #-100, SOHBC 
IDN 3.7 


MOV @-40,@0HBC 
MOV #27362 , @BDHLPR 





SEQ 44 


sSET UP TO ESCAPE TO NEXT TEST 
;SET UP TO LOOP WITH DATA 3; 3 


sMASTER CLEAR INTERFACE 

sSET UP TO START 16. LINES 
sCOUNT AND BUS ADDRESS MEMORIES 
sAND RECEIVED DATA STORAGE 

sSET UP TO LOAD HIGH BYTE 

;OF EXPECTED DATA 

sLOAD BUSS ADDRESS 


sLOAD BYTE COUNT 


sLOAD BYTE COUNT 


sLOAD BYTE COUNT 


sLOAD BYTE COUNT 
sSET LINE SPEED AND 


; CHARACTER LENGTH 7 + ODD PARITY 


CLRB RBUF CR1) 
MOVB R2 ,RBUF CRS) 
INC CR 

INC Re 

ADD #2,R1 

ADO #2 .,.R3 

DEC RO 

BNE is 

MOV 6% , GOHRVEC 
MOV , VL 
MOV #100, 


sCLEAR NEXT — CHARACTER 


sUPDATE POINTER TO 

;LOW AND HIGH BYTE OF 
sNEXT EXPECTED CHARACTER 
sCONTINUE IF ALL LINES 
sNOT SET UP 

:SET UP POINTER FOR 
sRECEIVER INTERRUPT 

sENABLE RECEIVER INTERRUPT 
SSET ALL BAR BITS 

;ENABLE INTERRUPTS 

3G0 TO TRANSMITTER WAITING ROUTINE 


sRECEIVER INTERRUPT SERVICE ROUTINE 
RECEIVER DONE AND NO 


sCHECK FOR 


ERRORS 
sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS 
sVERIFY THAT RECEIVED DATA IS CORRECT 


sCHECK FOR END OF PASS 


TSTB @DHSCR 
BPL 10$ 
' BIT —* @DHSCR 
BEQ +4 
HLT vd 
EMT 2 
MOV @DHNAC Ri 
MOV Ri ,R2 
SWAB R2 


BIC #177760,R2 





sIF CHARACTER AVAILABLE NOT SET. ERROR 
sIF SILO OVERRUN SET, ERROR 
sSILO OVERRUN, ERROR 


sREAD CHARACTER FROM SILO 
sEXTRACT LINE NUMBER 





o- 











SEQ 45 
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012767 
012767 
012767 


000025 
012777 
012700 
005001 


012702 
012703 
012777 


012450 
012450 


012450 


004000 


004222 
004222 
000340 


000340 
000010 


004216 


172224 


172214 
22 


10$: 
11%: 


12$: 


13%: 


SCOPE 
SUPERCALIFRIGILISTICEXPEHALIDOSIS 


MOV R2,R3 sSAVE LINE NUMBER 

ASL Re sUSE LINE NUMBER AS OFFSET 

al >: aia sCOMPARE EXPECTED AND RECEIVED DATA 
.* 

MOV RBUF CR2),R5 sGET EXPECTED DATA 

HLT 3 sDATA ERROR 

EMT 3 

INCB RBUF CR2) sUPDATE EXPECTED CHARACTER 

RTI ;CONTI 

-a : sCHARACTER AVAILABLE NOT SET, ERROR 

POP2SP sRESTORE STACK 

MOV #68IT11,8DHSCR sMASTER CLEAR INTERFACE 

BR 13$ sRESTART TEST 


sWAIT FOR ALL BAR BITS TO CLEAR 
;WHEN ALL BAR BITS HAVE CLEARED, 
sWAIT FOR SILO TO EMPTY 

sWHEN SILO IS EMPTY, SCOPE ON TEST 


TST SOHBAR ;WAIT FOR ALL BAR BITS TO CLEAR 
TST @DHSLR ;WAIT FOR SILO TO EMPTY 
MOV @340,PS ;PREVENT INTERRUPTS 


sCHECK FOR ITERATIONS, LOOP 
27322,EVEN,7 


sMULTI-LINE PARITY DATA TEST 

s TRANSMIT A BINARY COUNT WITH EVEN PARITY 

sPATTERN ON ALL LINES. 

sSILO ALARM LEVEL SET TO 0 

sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS 


sIN INTERRUPT 

3: TRANSMITTER INTERRUPT WILL BE DISABLED 

sLINE SPEED: 2400 BAUD 

sCHARACTER LENGTH: 7 + PARITY 
TS \XN,10,11$% 
T24: MOV 0340 ,PS ;DISABLE ALL INTERRUPTS 

#10, ICOUNT ;SET UP FOR 10 ITERATIONS 
in #113, ESCAPE. sSET UP TO ESCAPE TO NEXT TEST 
= <> 
#,FREEZi ;SET UP TO LOOP WITH DATA 5s 

-ENDC 
XN=XNe1 

MOV #B8IT11.8DHSCR sMASTER CLEAR INTERFACE 

MOV #16. ,RO ;SET UP TO START 16. LINES 

CLR Ri :COUNT AND BUS ADDRESS MEMORIES 

;AND RECEIVED DATA STORAGE 

MOV #200 ,R2 sSET UP TO LOAD HIGH BYTE 

MOV #1,R3 ;0F EXPECTED DATA 
MOV oe ;LOAD BUSS ADDRESS 

MOV #-400 , SDHBC ;LOAD BYTE COUNT 
-ENOC 
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a. 
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012777 177600 004116 


105777 
100026 
032777 
001401 


003772 


6$: 


7$: 





SEQ 46 

ION 7,7 
MOV #-200, SDHBC sLOAD BYTE COUNT 
IDN 6,7 
MOV ¢-100, SDHBC sLOAD BYTE COUNT 
IDN 5.7 
MOV #-40 , BDHBC sLOAD BYTE COUNT 
MOV 927322 , BDHLPR ;SET LINE SPEED AND 

; CHARACTER LENGTH 7 + EVEN PARITY 
CLRB RBUF (R1) sCLEAR NEXT RECEIVED CHARACTER 
MOVB R2 ,RBUF CRS) ;LOAD HIGH BYTE 
INC SDHSCR sADVANCE TO NEXT LINE 
INC Re sUPDATE POINTER TO 
ADD #2,R1 sLOW AND HIGH BYTE OF 
ADD oRS sNEXT EXPECTED CHARACTER 
DEC sCONTINUE IF ALL LINES 
BNE i$ sNOT SET UP 
MOV #6$ , BDHRVEC sSET UP POINTER FOR 
MOV #240 , BDHRLVL sRECEIVER INTERRUPT 
MOV #100 ,@DHSCR sENABLE RECEIVER INTERRUPT 
MOV #-1,@DHBAR sSET ALL BAR BITS 
CLR PS sENABLE INTERRUPTS 
JMP 12$ :GO TO TRANSMITTER WAITING ROUTINE 


sRECEIVER INTERRUPT SERVICE ROUTINE 

sCHECK FOR RECEIVER DONE AND NO ERRORS 

sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS 
sVERIFY THAT RECEIVED DATA IS CORRECT 

sCHECK FOR END OF PASS 


TSTB SDHSCR sIF CHARACTER AVAILABLE NOT SET, ERROR 
BIT #40000, @DHSCR sIF SILO OVERRUN SET, ERROR 
-* ’ 
wt 2 ;SILO OVERRUN, ERROR 
MOV = @DHNRC.,,R1 sREAD CHARACTER FROM SILO 
MOV —s_- RA, R2 sEXTRACT LINE NUMBER 
SWAB sR 
BIC #177760,R2 
MOV —s_-R2, RB sSAVE LINE NUMBER 
ASL sR ;USE LINE NUMBER AS OFFSET 
cHe = RBUFCR2) Ri s;COMPARE EXPECTED AND RECEIVED DATA 
.? 
MOV §- RBUFCR2),R5 s;GET EXPECTED DATA 
Mr 3 DATA ERROR 
INCB RBUF(R2) sUPDATE EXPECTED CHARACTER 
RTI sCONTI 
mt 3 s;CHARACTER AVAILABLE NOT SET, ERROR 
POP2sP sRESTORE STACK 
MOV § @BIT11, SDHSCR sMASTER CLEAR INTERFACE 
13$ sRESTART TEST 





CZ0HG-CO 


EEE 


> 


006102 
006110 
006114 
006116 
006122 
006126 
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012767 
012767 
012767 


000026 
012777 
012700 
012702 
012703 
012777 
012777 
012777 


105061 
110263 
005277 
005202 


012050 


177700 


027361 


012450 
012450 
003560 


171710 


003634 


003616 


003612 


sWAIT FOR ALL BAR BITS TO CLEAR 
sWHEN ALL BAR BIiS HAVE CLEARED, 
sWAIT FOR SILO TO EMPTY 

sWHEN SILO IS EMPTY, SCOPE ON TEST 


12%: TST ~s be ;WAIT FOR ALL BAR BITS TO CLEAR 
Li ba — ;WAIT FOR SILO TO EMPTY 
MOV #340.PS ;PREVENT INTERRUPTS 
13%: SCOPE ;CHECK FOR ITERATIONS, LOOP 
SUPERCAL IFRIGILISTICEXPEHALIDOSIS 27361,000.6 
sMULTI-LINE PARITY DATA TEST 
s TRANSMIT A BINARY COUNT WITH ODD PARITY 
sPATTERN ON ALL LINES. 
;SILO ALARM LEVEL SET TO O 
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS 
sIN INTERRUPT MODE. 
s TRANSMITTER INTERRUPT WILL BE DISABLED 
sLINE SPEED: 2400 BAUD 
sCHARACTER LENGTH: 6 + PARITY 
TS \XN,10,11% 
T25: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
— MOV $113 ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
. <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA 
-ENDC 
XN=XNeo1 
MOV 981T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV #16. .,RO sSET UP TO Mag 16. LINES 
Ri 3C AND BUS ADDRESS MEMORIES 
SAND RECEIVED DATA STORAGE 
MOV #200 ,R2 ;SET UP TO LOAD HIGH BYTE 
MOV #1 ,R3 ;OF EXPECTED DATA 
1%: MOV @TBUF , BDHBA sLOAD BUSS ADDRESS 
IF ION 8,6 
MOV #-400, BDHBC sLOAD BYTE COUNT 
-ENDC 
iF ION 
MOV #-200, @DHBC sLOAD BYTE COUNT 
-ENDC 
MOV #-100, @DHBC sLOAD BYTE COUNT 
-ENDC 
IF ION 5,6 
mae MOV ¢-40 , @DHBC sLOAD BYTE COUNT 
MOV #27361 . 8DHLPR sSET LINE eety 
sCHARACTER LENGTH 6 + ODD PARITY 
CLRB RBUF CR1) sCLEAR NEXT RECEIVED CHARACTER 
MOVB R2 ,RBUF CRS) ;LOAD HIGH BYTE 
INC @DHSCR sADVANCE TO NEXT LINE 
INC R2 S UPDATE POINTER TO 





SEa 47 





CZOHG -C 
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105777 


005777 
001375 
105777 
001375 
012767 
104400 


003476 


040000 


003460 


177760 


012450 
012450 


012450 


004000 


003412 
003412 
000340 


003466 


003406 


171414 





78: 


10%: 
11$: 


12%: 


13%: sc 
SUPERCALIFRIGILISTICEXPEHALIDOSIS 





SEQ 48 
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ADD #2 ,R1 sLOW AND HIGH BYTE OF 

ADO @2 ,R3 sNEXT EXPECTED CHARACTER 

DEC s;CONTINUE IF 

BNE $ sNOT SET UP 

MOV 96% , BOHRVEC sSET UP POINTER FOR 

MOV » SDHRLVL sRECEIVER INTERRUPT 

MOV #100, BDHSCR sENABLE RECEIVER INTERRUPT 

MOV #-1, SDHBAR :;SET ALL BAR BITS 

CLR PS sENABLE INTERRUPTS 

JMP 12$ sGO TO TRANSMITTER WAITING ROUTINE 


sRECEIVER INTERRUPT SERVICE ROUTINE 

sCHECK FOR RECEIVER DONE AND NO ERRORS 

sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS 
;VERIFY THAT oo DATA IS CORRECT 

sCHECK FOR END OF PASS 


hg — ;IF CHARACTER AVAILABLE NOT SET, ERROR 
aia on ;IF SILO OVERRUN SET, ERROR 
.¢ 
ad 2 ;SILO OVERRUN, ERROR 
MOV SDHNRC ,R1 sREAD CHARACTER FROM SILO 
MOV R1,R2 sEXTRACT LINE NUMBER 
SWAB R2 
BIC #177760,R2 
MOV R2,R3 sSAVE LINE NUMBER 
ASL R2 sUSE LINE NUMBER AS OFFSET 
asd ve: ali sCOMPARE EXPECTED AND RECEIVED DATA 
.* 
MOV RBUF CR2),R5 ;GET EXPECTED DATA 
ya : sDATA ERROR 
ave RBUF CR2) eners EXPECTED CHARACTER 
a 
a sCHARACTER AVAILABLE NOT SET, ERROR 
POP2SP sRESTORE STACK 
MO sMASTER CLEAR INTERFACE 


Vv @8IT11,@DHSCR 
13% sRESTART TEST 


sWAIT FOR ALL BAR BITS TO CLEAR 


;WHEN ALL BAR BITS HAVE CLEARED, 

;WAIT FOR SILO TO EMPTY 

;WHEN SILO IS eneTy, SCOPE ON TEST 

TST SOHBAR eats ;WAIT FOR ALL BAR BITS TO CLEAR 
TSTB SOHSLR ;WAIT FOR SILO TO EMPTY 


-4 
#340,PS ;PREVENT INTERRUPTS 
s;CHECK FOR ITERATIONS, LOOP 
27321, EVEN, 6 


sMULTI-LINE PARITY DATA TEST 
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c 


006364 
006364 
006372 
006400 


006440 
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012767 


000027 
012777 
012700 
005001 
012702 


012703 
012777 


012777 


012777 
105061 


177700 


171404 
003412 
003400 


003330 


003312 


003306 


003274 
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s TRANSMIT A ge WITH EVEN PARITY 


;PATTERN ON ALL LI 
sSILO ALARM LEVEL SET TO 0 


sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS 


IN INTERRUPT MODE. 


s TRANSMITTER INTERRUPT WILL GE DISABLED 


sLINE SPEED: 2400 BAUD 
sCHARACTER LENGTH: 6 + PARITY 


TS \XN,10,11$ 
T26: MOV 6340 ,PS 

MOV #10, ICOUNT 

MOV #11 ,ESCAPE 
IF NB <> 

MOV @,FREEZ1 
-ENOC 
XN=XNeo1 

MOV €8IT11,8DHSCR 

MOV #16. ,RO 

CLR R1 

MOV #200 ,R2 

MOV #1,R3 
i$: MOV @TBUF , SOHBA 
IF ION 8.6 

MOV #-400, SOHBC 
-ENDC 
IF ION 7,6 

MOV #-200, SOHBC 
-ENDC 
.IF IDN 6.6 

MOV #-100, BOHBC 
-ENDC 
‘ IDN 5.6 

MOV @-40 . 8DHBC 
-ENDC 

MOV #27321 , SDHLPR 

RBUF CR1) 

MOVB R2 ,RBUF CRS) 

INC GOHSCR 

INC 

ADD 

ADO 

DEC 

BNE 

MOV 

MOV 

MOV 

MOV 

CLR 

JMP 








sDISABLE ALL INTERRUPTS 
;SET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


sMASTER CLEAR INTERFACE 
sSET UP TO START 16. LINES 


sCOUNT AND BUS ADDRESS MEMORIES 


sAND RECEIVED DATA STORAGE 
sSET UP TO LOAD HIGH BYTE 
;0F EXPECTED DATA 
s;LOAD BUSS ADDRESS 


sLOAD BYTE COUNT 


sLOAD BYTE COUNT 


sLOAD BYTE COUNT 


sLOAD BYTE COUNT 
LINE SPEED = 


;SET 
CHARACTER LENGTH 6 + EVEN PAR 


ARITY 
AR NEXT RECEIVED CHARACTER 
HIGH B 


IGH BYTE OF 
EXPECTED CHARACTER 
sCONTINUE IF ALL LINES 





SEQ 49 


; 3 


RRUPTS 
sGO TO TRANSMITTER WAITING ROUTINE 
sRECEIVER oes SERVICE ROUTINE 


VER DONE AND NO ERRORS 
CEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS 
VERIFY THAT RECEIVED DATA IS CORRECT 





LL LLL LLLLL LLL DLE OLE LDL LEI TE LLL ALE LEIS GE, TE EOE AACE EO CTI IE IOI I LE OL IE ET NLT O LE OC IC TOCA I TE EN I TTC OGE OU AEE GE et 





CZOHG-CO MACRO VO04.00 27-JUN-85 13:01:48 PAGE 21-22 _ o 
sCHECK FOR END OF PASS 
006546 105777 003172 6%: TST8 SOHSCR ;IF CHARACTER AVAILABLE NOT SET, 
006552 100026 BPL 10$ os 
006554 032777 040000 003162 BIT #40000 , BDHSCR sIF SILO OVERRUN SET, ERROR 
006562 001401 BEQ +4 
006564 HLT 2 s;SILO OVERRUN, ERROR i 
006564 104002 EMT 2 
006566 017701 003154 7$: MOV SOHNRC ,R1 sREAD CHARACTER FROM SILO 
006572 010102 MOV R1,R2 sEXTRACT LINE NUMBER 
006574 000302 SWAB R2 
006576 042702 177760 BIC #177760,R2 
006602 010203 MOV R2,R3 sSAVE LINE NUMBER 
006604 006302 ASL Re sUSE LINE NUMBER AS OFFSET 
006606 026201 012450 CMP RBUF CR2),R1 sCOMPARE EXPECTED AND RECEIVED DATA 
006612 001403 BEQ .+10 
006614 016205 012450 MOV RBUF CR2) RS sGET EXPECTED DATA 
006620 HLT 3 sDATA ERROR 
006620 104003 EMT 3 
006622 105262 012450 INCB RBUF (R2) sUPDATE EXPECTED CHARACTER 
006626 000002 RTI ;CON 
006630 10$: HLT 1 sCHARACTER AVAILABLE NOT SET, ERROR 
006630 104001 EMT i 
0C6632 022626 11%: POP2SP sRESTORE STACK 
006634 012777 004000 003102 MOV #61711, @DHSCR sMASTER CLEAR INTERFACE 
006642 000411 BR 13% sRESTART TEST 


sWAIT FOR ALL BAR BITS TO CLEAR 
sWHEN ALL BAR sy or CLEARED, 






sWAIT FOR SILO T 

sWHEN SILO IS EMPTY. SCOPE ON TEST 
006644 005777 003106 12$: TST SOHBAR sWAIT FOR ALL BAR BITS TO CLEAR 
006650 001375 BNE 74 
006652 105777 003106 TSTB ne plea sWAIT FOR SILO TO EMPTY 
006656 001375 BNE 
006660 012767 900340 171110 MOV 340, PS :PREVENT INTERRUPTS 
006666 104400 13$: SCOPE sCHECK FOR ITERATIONS, LOOP 

20 006670 SUPERCALIFRIGILISTICEXPEHALIDOSIS 27360,000,5 
| sMULTI-LINE PARITY DATA TEST 
| T A BINARY a WITH COD PARITY 
SET TO 0 

IN WILL BE SERVICED ON A PER CHARACTER BASIS 

TRANSMITTER INTERRUPT WILL BE DISABLED 

sLINE SPEED: 2400 BAUD 

sCHARACTER LENGTH: 5S + PARITY 
606670 TS \XN,10,118 
006670 012767 000340 171100 127: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
006676 012767 000010 003106 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
006704 012767 007136 003074 MOV #118 ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 


IF NB <>? 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
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000030 
012777 
012700 
005001 
012702 


012703 
012777 


003024 


003002 
002770 


002746 
002742 
002710 
002714 


-ENDC 
XN=XNeo1 


7%: 


CLRB 


@ SOSSSSRRSSaz 
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#81711. @DHSCR 
#16. .RO 

Ri 

#200 ,R2 

#1,R3 
@TBUF , BOHBA 
@-400, SDHBC 


7.5 
@-200, GDHBC 


6.5 
G- 100, SOHBC 


5.5 
@-40 , BDHBC 


#27360 , GDHLPR 


SEQ 51 


sMASTER CLEAR INTERFACE 

;SET UP TO START 16. LINES 
sCOUNT AND BUS ADDRESS MEMORIES 
sAND RECEIVED DATA STORAGE 

sSET UP TO LOAD HIGH BYTE 

s0F EXPECTED DATA 

sLOAD BUSS ADDRESS 


s;LOAD BYTE COUNT 
sLOAD BYTE COUNT 


sLOAD BYTE COUNT 


sLOAD BYTE COUNT 
LINE SPEED AND 


sSET 
CHARACTER LENGTH 5 * OOD PARITY 


RBUF (R11) 
R2 .RBUFCR3) 
SOHSCR 











R2 
#177760,R2 
R2,.R3 


R2 
RBUF CR2) ,R1 





sCLEAR _wae CHARACTER 





sENABLE INTERRUPTS 
sG0 TO TRANSMITTER WAITING ROUTINE 


sIF CHARACTER AVAILABLE NOT SET, ERROR 
sIF SILO OVERRUN SET, ERROR 
sSILO OVERRUN, ERROR 


sREAD CHARACTER FROM SILO 
SEXTRACT LINE NUMBER 








3SAVE LINE NUMBER 
sUSE LINE NUMBER AS OFFSET 
sCOMPARE EXPECTED AND RECEIVED DATA 





—_. —- 





CZ0HG-CO 


21 


SEQ S2 
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001403 


016205 
104003 
105262 
000002 
104001 
022626 
012777 
000411 


012702 
01.2703 
12777 


012450 


012450 


002576 


170604 


170574 


























BEQ -#10 
MOV RBUF (R2).RS ;GET EXPECTED DATA 
Al ; sDATA ERROR 
INC RBUF (R2) ;UPDATE EXPECTED CHARACTER 
$ 
108: wT : ;CHARACTER AVAILABLE NOT SET, ERROR 
11%: POP2SP sRESTORE STACK 
MOV #81711, @DHSCR sMASTER CLEAR INTERFACE 
BR 138 ;RESTART TEST 
;WAIT FOR ALL BAR BITS TO CLEAR 
;WHEN ALL BAR BITS HAVE CLEARED, 
;WAIT FOR SILO TO EMPTY 
;WHEN SILO IS EMPTY, SCOPE ON TEST 
12%: Ist SOHBAR ;WAIT FOR ALL BAR BITS TO CLEAR 
TSTB GOHSLR ;WAIT FOR SILO TO EMPTY 
@340,PS ;PREVENT INTERRUPTS 
13#: SCOPE ;CHECK FOR ITERATIONS, LOOP 
SUPERCAL IFRIGILISTICEXPEHALIDOSIS 27320, EVEN.5 
;MULTI-LINE PARITY DATA TEST 
A BINARY COUNT WITH EVEN PARITY 
"TO 0 
WILL BE SERVICED ON A PER CHARACTER BASIS 
i LENGTH: S + PARITY 
TS \XN,10,119 
T30: | MOV 0340,PS sDISABLE 
MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
mee MOV 0119 ESCAPE 3SET UP TO TO NEXT TEST 
‘ <> 
MOV @,FREEZ1 :SET UP TO LOOP WITH DATA 23 
XN©XNe 1 | 
MOV @81T11 .SOHSCR sMASTER CLEAR INTERFACE 
MOV -—s-@16.. RO sSET UP TO START 16. LINES 
ar s COUNT BUS ADDRESS 
sAND RECEIVED DATA STORAGE 
my OSL ‘OF EXPECTED OATIA 
E 
18: MOV = OTBUF ,@DHBA LOAD BUSS 
IF Ion 2S sé 
Kay 6-400, GDHBC sLOAD BYTE COUNT 
.ENDC 
iF TOM 7.5 
MOV @-200, GDHBC sLOAD BYTE COUNT 


-— 





012777 
012777 


105777 
100026 
032777 
001401 





0024 76 
002464 


002352 


002272 





IF 


6$: 


78: 


10$: 





SEQ 53 


sSET LINE Saeres AND 
sCLEAR NEXT RECEIVED CHARACTER 


sADVANCE TO NEXT LINE 
sUPDATE POINTER TO 

sLOW AND HIGH BYTE OF 
sNEXT EXPECTED CHARACTER 
sCONTINUE IF ALL LINES 


sSET UP POINTER FOR 
sRECEIVER INTERRUPT 
sENABLE —— 


sENABLE INTERRUPTS 


ION 6.5 
MOV @-100, SOHBC sLOAD BYTE COUNT 
ION 3.5 
MOV @-40, @DHBC sLOAD BYTE COUNT 
MOV €27320 ,@DHLPR 
; CHARACTER LENGTH 5S + EVEN P 
CLRB RBUF (R1) 
MOVB R2 ,RBUF CRS) sLOAD HIGH BYT 
INC SOHSCR 
INC Re 
ADD @2,R1 
ADD @2.R3 
DEC RO 
BNE 1$ sNOT SET UP 
MOV 06%, GOHRVEC 
MOV #240 , @OHRLVL 
MOV #100, 8DHSCR 
MOV @-1, SOHBAR sSET ALL BAR 
CLR PS 
JMP i2$ 


sRECEIVER INTERRUPT SERVICE ROUT 
sCHECK FOR 


sGO0 TO TRANSMITTER WAITING ROUTINE 
INE 


RECEIVER DONE AND NO ERRORS 


sCHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS 
sVERIFY THAT yy DATA IS CORRECT 


CHECK FOR END OF PASS 


TST8 @DHSCR 
BPL 10$ 
BIT #40000 , SDHSCR 
BEQ 04 
HLT 
EMT é 
MOV Ri 
MOV R1,R2 
SWAB 
BIC #14 77760,R2 
MOV »R3 
ASL Re 
CMP RBUF CR2) .R1 
BEQ a | 
MOV RBUF CR2) RS 
HLT 3 
EMT 3 
RBUF CR2) 
RTI 
HLT 1 
EMT i 
POP2SP 
40 


Vv #681T11,@DHSCR 
13$ 


;WAIT FOR ALL BAR BITS TO CLEAR 
;WHEN ALL BAR BITS HAVE CLEARED, 


sIF CHARACTER AVAILABLE NOT SET, ERROR 
sIF SILO OVERRUN SET. ERROR 

sSILO OVERRUN, ERROR 
seaere sa 


sSAVE LINE NUMBER 
sUSE LINE NUMBER AS OFFSET 
sCOMPARE EXPECTED AND RECEIVED DATA 


:GET EXPECTED DATA 
:DATA ERROR 


br EXPECTED CHARACTER 

; 

sCHARACTER AVAILABLE NOT SET, ERROR 
sRESTORE STACK 


sMASTER CLEAR INTERFACE 
sRESTART TEST 





CZOMG -CO 


-— 


007454 
007460 
007462 
007466 
007470 
007476 
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005777 002276 


001375 


105777 
001375 
012767 
104400 


002276 
000340 170300 





128: 








SEQ 54 
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sWAIT FOR SILO TO EMPTY 
;WHEN SILO IS EMPTY, SCOPE ON TEST 


Ist SOHBAR ;WAIT FOR ALL BAR BITS TO CLEAR 
TSTB @DHSLR ;WAIT FOR SILO TO EMPTY 

MOV €340,PS ;PREVENT INTERRUPTS 

SCOPE ;CHECK FOR ITERATIONS, LOOP 





CZOHNG -CO 


-— 


O@IAU SS whe 


49 007706 
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012767 
012767 
012767 


000032 
012777 
012700 
005001 


012702 
012703 
012777 
012777 
012777 


105777 


177400 
031403 


012450 


012450 
002140 


002056 
040000 


002040 


170270 
002276 
002264 


002214 


002176 
002172 
002160 


002046 


T31 


.IF NB 


-ENDC 
XN=XNel 


is: 


6$: 


7$: 


TS \XN,10,11$ 
: MOV 


sMULTI LINE DATA TEST 


sSILO ALARM LEVEL SET T 


SEQ 55 


00 
sRECEIVER WILL BE SERVICED ON A PER CHARACTER BASIS 


sIN INTERRUPT MODE 


s TRANSMITTER INTERRUPTS WILL BE DISABLED 

; TRANSMIT A BINARY COUNT PATTERN ON ALL LINES 
sLINE SPEED IS 4800 BAUD FOR ALL LINES 
s;CHARACTER LENGTH IS 8 BITS FOR ALL LINES 


MOV e118, ESCAPE 
MOV @,FREEZ1 


MOV #81T11,@DHSCR 
#20,R0 


CLR 
MOV #200 ,.R2 
MOV #1,R3 


Cc 
MOV #31403, SDHLPR 


CLRB RBUF CR1) 
MOVB R2 ,RBUF CRS) 
@OHSCR 


INC R2 
ADD @2,R1 
ADD «a @2,, RS 
DEC RO 
BNE i$ 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

:SET UP TO LOAD BYTE 

sCOUNT AND BUS ADDRESS MEMORIES 
sAND RECEIVED DATA STORAGE 

s;SET UP TO LOAD HIGH BYTE 

sOF EXPECTED DATA 

:LOAD BUSS ADDRESS 

sLOAD BYTE COUNT 

s;SET LINE SPEED AND 

sCHARACTER LENGTH 


BYTE OF 
sNEXT EXPECTED CHARACTER 
sCONTINUE IF ALL LINES 
SNOT SET UP 
sSET UP POINTER FOR 
sRECEIVER INTERRUPT 
sENABLE INTERFACE 
3SET ALL BAR BITS 


3 E INTERRUPTS 
3G0 TO TRANSMITTER WAITING ROUTINE 


sRECEIVER INTERRUPT SERVICE ROUTINE 
DONE AND NO 


‘a FOR RECEIVER 


ERRORS 
CHECK RECEIVED DATA FOR “VALID DATA” FLAG AND NO ERRORS 
{VERIFY THAT DOF PASS IS CORRECT 


sCHECK FOR END OF P 


TSTB @DHSCR 

BPL 10% 

BIT #40000 , @DHSCR 
BEQ +4 

HLT 

EMT 2 

MOV SOHNRC Ri 

MOV R1,R2 





sIF CHARACTER AVAILABLE NOT SET, ERROR 
sIF SILO OVERRUN SET, ERROR 
s;SILO OVERRUN, ERROR 


sREAD CHARACTER FORM SILO 
sEXTRACT LINE NUMBER 


SS ee 
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ae 007710 








SEQ 56 
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177760 


012450 
012450 


012450 


001772 
001772 


001766 


10$: 
11$: 


i2$: 


13$: 


SWAB R2 
BIC 0177760,R2 
MOV R2,R3 sSAVE LINE NUMBER 


ASL Re s;USE LINE NUMBER AS OFFSET 


aoe =e sCOMPARE EXPECTED AND RECEIVED DATA 
~* 

MOV RBUF CR2),R5 sGET EXPECTED DATA 

HLT 3 s;DATA ERROR 

EMT 3 

INCB RBUF (R2) sUPDATE EXPECTED CHARACTER 

RTI ; CONTINUE 

a : sCHARACTER AVAILABLE NOT SET, ERROR 

POP2SP sRESTORE STACK 

MOV #61T11,8DHSCR sMASTER CLEAR INTERFACE 

BR 13$ sRESTART TEST 


sWAIT FOR ALL BAR BITS TO CLEAR 
sWHEN ALL BAR BITS HAVE CLEARED, 
SWAIT FOR SILO TO EMPTY 

sWHEN SILO IS EMPTY, SCOPE ON TEST 


TST QOHBAR ;WAIT FOR ALL BAR BITS TO CLEAR 
STB @OHSLR ;WAIT FOR SILO TO EMPTY 
SCOPE ;CHECK FOR ITERATIONS, LOOP 





eet eee 





CZDHG-CO 


-— 


O@IAUS whore 


10 007776 


26 010110 
27 010114 
28 pees 
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012767 


000033 
012777 
012700 
005001 


012702 


000340 
000012 
010344 


004000 
000020 


000200 
000001 
012050 
177400 
033503 
012450 


012450 
001642 


001530 


167772 
002000 
001766 


001716 


001700 
001674 
001662 





T32 


.IF NB 


-ENDC 
XN=XNel 


i$: 


2s: 
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sMULTI-LINE DATA TEST 

; TRANSMIT A BINARY COUNT COUNT PATTERN ON ALLL LINES 
sLINE SPFLED IS 9600 BAUD 

sSILO A! ARM LEVEL IS SET TO 63 (NO RECEIVER DONE 
sINTERRUPTS WILL OCCUR) 

sCONTINUOUSLY ATTEMPT TO READ DATA FROM SILO 

s;IF "VALID DATA” FLAG IS DETECTED, 

;THE DATA WILL BE CHECKED 


TS \XN,12,8$ 


MOV #340 ,.PS sDISABLE ALL INTERRUPTS 

MOV #12, ICOUNT ;SET UP FOR 12 ITERATIONS 

MOV #8% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 

<> 

MOV #,FREEZi ;SET UP TO LOOP WITH DATA 

MOV #68IT11.8DHSCR sMASTER CLEAR INTERFACE 

MOV #20,R0 ;SET UP TO LOAD BYTE 

CLR ;COUNT AND BUS ADDRESS MEMORIES 
sAND RECEIVED DATA STORAGE 

MOV $200 ,R2 ;SET UP TO LOAD HIGH BYTE 

MOV #1 ,R3 ;OF EXPECTED DATA 

MOV #TBUF , SOHBA :LOAD BUSS ADDRESS 

MOV #-400, @DHBC ;LOAD BYTE COUNT 

MOV 033503, SDHLPR ;SET LINE SPEED AND 
;CHARACTER LENGTH 

CLRB RBUFCR1) ;sCLEAR NEXT RECEIVED CHARACTER 

MOVE R2 ,RBUFCR3) ;LOAD HIGH BYTE 

INC SOHSCR sADVANCE TO NEXT LINE 

INC sUPDATE POINTER TO 

ADD $2 ,Ri ;LOW AND HIGH BYTE OF 

ADD €2.R3 sNEXT EXPECTED CHARACTER 

DEC RO sCONTINUVE IF ALL LINES 

BNE is sNOT SET UP 

MOV $2% , BSHTVEC :SET UP POINTER FOR 

MOV $240 , SDHTLVL ; TRANSMITTER INTERRUPT 

MOV 96% , BOHRVEC ;SET UP POINTER FOR 

MOV $240 , BDHRL VL sRECEIVER INTERRUPT 

MOV #12,R0 ;SET UP TO TRANSMIT 

CLR ENOFLG 310 CDEDIMAL) BLOCKS OF DATA 
;0N EACH LINE 

MOV #77, @DHSSR 

MOV 30000 , BDHSCR sENABLE INTERFACE 

MOV @-1, AR ;SET ALL BAR BITS 

CLR PS sENABLE INTERRUPTS 

BR 7$ ; TRANSFER TO RECEIVER SERVICE 


;s TRANSMITTER INTERRUPT git ROUTINE 
ERRORS 


sCHECK FOR TRANSMIT DONE AND NO 


Ha ~~ 3IS TRANSMITTER DONE SET 
* 
HLT 4 ; TRANSMIT DONE NOT SET, ERROR 
EMT 4 
RTI RETURN 








SEQ 57 


102 010426 





LLL ELLEN IEA TE LLIL LL ELE LILLIE LE LLOE LE LELAND TE LODE I ERE LELS IES A, TE, 





SEQ 58 
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105777 
100001 


104005 
032777 
001402 


104002 
090401 


104000 
000002 


017701 
005701 
100374 
010102 
000302 
042702 
010203 
006302 
126201 
001403 


001516 


040000 


001470 


001504 


001500 


6$: 


3$: 


7$: 


9$: 


sRECEIVER INTERRUPT SERVICE ROUTINE 


RTI 


@OHSCR ;IS CHARACTER AVAILASLE SET 

5 ;CHARACTER AVAILABLE SET, ERROK 
040000, @DHSCR ;IS SILO OVERRUN SET 

‘' ;SILO OVERRUN, ERROR 

rf 

0 sSPURIOUS INTERRUPT 


sTEST WILL RESTART 


sRECEIVER DATA CHECK 

s;GET A CHARACTER FROM THE SILO 
sIF IT IS VALID DATA, CHECK IT 
sOTHERWISE, TRY AGAIN 





SDHNRC ,R1 sREAD NEXT RECEIVED CHARACTER REGISTER 
Ri ;IF VALID DATA BIT NOT SET 
7$ sTRY AGAIN 


R1R2 ;EXTRACT LINE NUMBER 
#177760, R2 
R2. ;DOUBLE LINE NUMBER FOR OFFSET 
RBUFCR2),Ri ;COMPARE RECEIVED AND EXPECTED RESULTS 
+ 
RBUF(R2),RS ;GET EXPECTED DATA 
3 ;DATA ERROR 
RBUF(R2) ;UPDATE EXPECTED DATA 
rT ;CONTINUE IF NOT 0 
ENDFLG ;IF ALL LINES HAVE FINISHED 
83 310 BLOCKS OF DATA, CLEAN UP 
RS ;IF THE LINE IS 0 
RO ;UPDATE BLOCK COUNT 
93 ;IF LINE 0 HAS TRANSMITTED 10 BLOCKS 
@1,ENDFLG ;SET END FLAG 
BAR ;IF ALL LINES NOT DONE 
1s: GET MORE CHARACTERS 


; 

sIF SILO IS NOT EMPTY 

sGET REST OF DATA 

;sWHEN EMPTY, SCOPE ON TEST 
sADDRESS LINE THAT JUST FINISHED 


sSET UP BUS _ AND BYTE COUNT 





, BOHBC :FOR THAT LI 
BARBITCR2) . @DHBAR ;SET BAR BIT FOR THAT LINE 
7$ ;CONTI 
;CHECK FOR ITERATIONS, LOOP 
EOP :G0 TO END OF PASS ROUTINE 














SEQ 59 
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103 010430 000002 2 
104 010432 000004 4 
105 010434 000010 C 
106 010436 000020 20 
107 010440 000040 
108 010442 000100 100 
109 010444 000200 200 
110 010446 000400 400 
111 010450 001000 1000 
112 010452 002000 
113 010454 004000 4000 
114 010456 010000 10000 
115 010460 020000 20000 
116 010462 0940000 40000 
117 010464 100000 100000 


ERRORS AEE TRAE TLE SEL EEA LEELA ILLIA LADLE A AF 








‘a 
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016767 


013701 
001405 


000005 
004711 
000240 
000240 
000240 
000167 
000001 


006 
012000 


032777 
001030 


001246 
000042 


170526 


170246 


170204 
170174 
170164 


001162 


23: 
3%: 


LOGICAL: 


RESTRT: 
PASARG: 


. SCOPE 


SCOPER : 
i$: 


38: 
4$: 


*/BEGIN/ 





sEND OF PASS 


sTYPE NAME OF TEST 
sUPDATE PASS COUNT 
sCHECK FOR EXIT TO ACT-11 


sRESTART TEST 


TYPE 
MEPASS 


3; CHECK 


sCHECK FOR ITERATION SUPPRESSION 
BIT 





ee eta FFE th tt 


PASCNT ,LIGHTS 
9042 ,.R1 


RESTRT 
JSR 


FOR LOOP ON CURRENT TEST 


ae 
@SW14, SSWR 
#SW1i1, @SWR 
2$ 


LPCNT 
re eee 


LPCNT 


ERRFLG 
(SP), RETRN 
RETRN, (SP) 


ERRFLG 
i$ 





;TYPE NAME OF TEST 
;CLEAR LAST ERROR PC 
;CLEAR ERROR FLAG 
sUPDATE PASS COUNT 

; ARE WE USING LIGHTS? 
; BRANCH IF WE ARE 

; TYPE PASCOUNT MESSAGE 
; PRINT PASSCOUNT 

; CONTINUE 

;DISPLAY PASS COUNT 


sCHECK FOR ACT-11 OR DOP 
sIF NOT, CONTINUE TESTING 


; PARAMETERS TO PRINT PASSCOUNT 


SEQ 60 


> 2. SYUIGDS 





34 3 6 








SEQ 61 
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000762 BR 23 
-SCOP2 


sCHECK FOR FREEZE ON CURRENT DATA 


i 














032777 001000 170104 SCOPIR: 
1402 
016716 001106 
1%: 

032777 920000 170066 ERRORS: 
001055 
021667 001122 

1404 
011667 001114 

7 001044 sa 
011605 CSP),R5 
162705 000002 #2,R5 
011504 CRS) .R4 
304 R4 
304 RA 

042704 177001 177001 ,R4 
062704 013262 #ERRTAB , R4 
012467 000040 (R4)+, ERRMSG 
011467 900052 (R4) ,.DATABP 
005767 001002 ERRFLG 
001403 TYPMSG 
005767 000040 DATABP 
001011 TYPDAT 
104401 
013037 
1044 
011110 
012767 000001 000754 #1,ERRFLG 
104401 
005767 000010 DATABP 
001404 RESREG 
104401 
013037 
1044 
104407 
005777 167726 
100005 
010046 
016600 000002 2(SP),RO 
000000 | 
012600 
005267 000710 EXITER: ; 
032777 167700 | 
001402 
016716 000700 ESCAPE .C SP) 











L 


011302 
9 011304 
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000554 





1%: RTI 
ERTABO: 1 
BYTE 6.2 
SAVYPC 
sTRAP DISPATCH SERVICE 
sARGUMENT OF TRAP IS EXTRACTED 


. TRPSRV 






;AND USED AS OFFSET TO OBTAIN POINTER ; 3 
3:70 SELECTED SUBROUTINE 
TRPSRY: MOV (SP),-CSP) ;GET PC OF RETURN 
sub @2,(SP) ;=PC OF TRAP 
MOV eC SP). CSP) ;GET TRP 
TRPOK: ASL (SP) sMULTIPLY TRAP ARG BY 2 
BIC #177001, (SP) ;CLEAR UNWANTED BI 
ADD @TRPTAB, (SP) sPOINTER TO SUBROUTINE ADDRESS 
MOV aC SP), CSP) sSUBROUTINE ADDRES 
JMP OC SP D+ ;G0 TO SUBROUTINE 
. TYPER 
sTELETYPE OUTPUT ROUTINE 
TYPER: MOV aC SP),R5S 
ADD 2 ,( SP 
1%: TSTB aTPc 
BPL is 
TST8 CR5) 
a 
RTI 
23: MOVB ll hat 
 INSTRG 
sASCII STRING INPUT ROUTINE 
INSTRG: MOV aC SP), MSG 
ADD 62,CSP) 
INSTRi: 
MSG: 0 
@INBUF .R4 
#7 RS 
is: — 
STKDBR , CR4) 
€200 ,(R4) 
(R4)+, 015 
INSTR2 





CZOHG-CO 


10 011470 


011470 
011474 


L 





017601 
062716 


000002 
000013 














SEQ 63 
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sCONVERT ASCII STRING TO OCTAL : 2 


PARAMS: MOV (SP).RS 
MOV CRS)+,LOLIM 
M0V C(RS5)+,HILIM 
MOV CRS). DEVADR 
MOVE (R5)+,LOBITS 
MOVB CR5)+, ADRCNT 
MOV RS. CSP) 

PARAM1: CLR RS 


MOV SINBUF ,R4 
CMPB #15, (R4) 
BEQ PARERR 
1%: CMPB C(R4) , 060 
BLT PARERR 
CR4) , #67 
BGT PARERR 


BEQ LIMI 
ASL RS 
ASL R5 
BR is 
PARERR: INSTER 
BR PARAML 
sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
LIMITS: CMP R5,HILIM 
BHI PARERR 
CMP R5,LOLIM 
BLO PARERR 
BITB LOBITS .RS 3 3 
BNE PARERR 
sSTORE NUMBER AT SPECIFIED ADDRESS 
DEVADR .R4 
R5,.CR4)+ 
4s 





sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


OCTASN: MOV aC SP),R1 
ADO @2,(CSP) 








011640 
11 011642 


011642 


011700 
i2 011702 


011702 
011706 
011712 
011716 
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016703 


177770 
000260 


000164 


(R1i)+,WROCNT 
1%: 


2s: 


Ag: 








sSAVE PC OF TEST THAT FAILED AND RO-RS 


SVOSP: MOV 4 SP), SAVPC 
SAVE RO-RS 

SV0S: hoy RS, SAVRS 
MOV —s—- RS. SAVR 
HOV »SA 
MOV _—s— RA SAVRIA 
MOV "SA 
ATI 

.RESREG 
RESTORE RO-RS 

RSOS: MOV  SAVRO, 
MOV = SAVR1, Ri 
MOV vR2, 
MOV VRS, 





SEQ 64 






CZOHG-CO 






011722 
011726 
011732 
13 011734 


016704 000100 
016705 000076 
000002 
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MOV SAVR4 ,R4 
MOV SAVRS RS 


t/DHSCR, DHNRC , DHLPR, DHBA,DHBC, DHBAR, OHBCR, DHSSR, OHSLR, DHRVEC ,DHRLVL, f J 
sINDIRECT POINTERS F goves OHTLVL 


#qQoocoooceoccococoooco co 


/ENOFLG ,TOATA/ 
PROGRAM VARIABLES 


533 oo oroecocooooooocoocoososoo = 


<DHSCR . DHNRC , DHLPR ,DHBA, DHBC , DHBAR ,DHBCR ,DHSSR ,DHSLR ,DHRVEC , DHRL VL ,OHTVEC, OH 








CZ0NG -CO 


-— 


012051 
012052 
012053 
012054 
022055 
012056 
012057 
012060 
012061 
012062 
012063 
012064 
012065 
012066 
012067 
012070 
012071 
012072 
012073 
012074 
012075 
012076 
012077 
012100 
012101 
012102 
012103 
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-NLIST 
TOAT=TOAT+1 
-LIST 


-ENDR 

-BYTE  TDAT 

TOAT=TDAT+1 
TDAT 


-BYTE  TDAT 


-BYTE  TDAT 
TOAT=TDAT+1 


-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
BYTE  TDAT 
TOAT=TOAT+1 
-BYTE TOA’ 
TDAT=TDAT +1 


-BYTE  TDAT 
TDAT*TDAT+1 


TDAT =TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TOAT=TDAT +1 
BYTE  TDAT 


TDAT=TDAT+i 


TDAT =TDAT +i 
-BYTE TDAT 
TDAT=TDAT +1 
-BYTE ‘TDAT 
TOAT=TDAT+1i 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TODAT 





SEQ 66 


CZ0HG -CO 


-— 


012104 
012105 
012106 
012107 
012110 
012111 
012112 
012115 
012114 
012115 
012116 
012117 
012120 
012121 
012122 
012123 
012124 
012125 
012126 
012127 
012130 
012131 
012132 
012133 
012134 
012135 
012136 
012137 
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TDAT=TDAT+1 
YT 


-BYTE  TOAT 
TDAT=TDAT+1 


-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
eo ae 


TDAT=TDAT +1 
.BYTE TDAT 
TDAT=TDAT +1 
TDAT=TDAT» i 


BYTE  TDAT 
TDAT =TDAT +1 


-BYTE  TDAT 
TDAT=TDAT+1 





PRAT SEE I LEST EAE ES SI 





I UN 


CZOMG -CO 


-— 


012140 
012141 
012142 
012143 
012144 
012145 
012146 
012147 
012150 
912151 
012152 
012153 
012154 
012155 
012156 
012157 
012160 
012161 
012162 
012163 
022164 
012165 
012166 
012167 
012170 
012171 
012172 
012173 
012174 
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-6YTE  TDAT 
TDAT=TDAT+1 


-BYTE  TDAT 
TDAT=TDAT+i 
.BYTE  TDAT 
TDAT=TDAT+1 


TDAT=TDAT+1 
-BYTE  ‘TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TOAT 
TDAT=TDAT oi 
-BYTE  TODAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +1 
BYTE  ‘TDAT 


TDAT=TDAT +1 
-BYTE  ‘TODAT 
TDAT=TDAT+i 
BYTE  TDAT 
-BYTE  TOAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT =TDAT +1 


TDAT=TDAT +1 
-BYTE OAT 








SEQ 68 


- 


CZOHG-CO 


012175 
012176 
012177 
012200 
012201 
012202 
012203 
012204 
012205 
012206 
012207 
012210 
12211 
012212 
012213 
012214 
012215 
012216 
012217 
012220 
012221 
012222 
012223 
012224 
012225 
012226 
012227 
012230 
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TDAT=TDAT+1 


-BYTE  TDAT 
TDAT=TDOAT+1 


-BYTE  TDAT 
TDAT=TDAT#1 
-BYTE  TODAT 
TDAT=TDAT +i 
-BYTE  TDAT 
TDAT=TDAT +i 
-BYTE TOAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +i 
-BYTE  ‘TDAT 
TDAT=TDAT+1i 
-—BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT>+ 


BYTE TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TOAT=TDAT +1 
-BYTE TDAT 
TDAT=TDAT +1 


-BYTE  TDAT 
TDOAT*TDAT+1 





SEQ 69 





C2DHG-CO 


-— 


012231 
012232 
012233 
012234 
012235 
012236 
012237 
012240 
012241 
012242 
012243 
012244 
012245 
012246 
012247 
012250 
012251 
012252 
012253 
012254 
012255 
012256 
012257 
012260 
012261 
012262 
012263 
012264 
012265 


MACRO V04.00 


LLL AO NE ae 6 AL LO LDLDO DIA LLL AAD LLL LAL LEE ROE AD TILE ELS CT I IT ILI N CCL EGE IY SA TO a I Ne 
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-BYTE  TDAT 


TDAT=TDAT+1 
-BYTE  TDAT 


BYTE  TDAT 
TDAT=TDAT+1 


-BYTE  ‘TDAT 
y age 


. A 
TDAT=TDAT+1 
BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
TOAT#TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT*=TDAT +1 
-BYTE  TOAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TODAT 
TOAT=TDAT+1 
BYTE  TDAT 


- TDAT=TOAT +1 


-BYTE  ‘TODAT 
TDAT=TDAT+i 
-BYTE  ‘TODAT 





(be Re ENTE PTL TI OLE OD ATI 





SEQ 70 


CZOHG -CO 


-— 


012266 
012267 
012270 
012271 
012272 
012273 
012274 
012275 
012276 
012277 
012300 
012301 
012302 
012303 
012304 
012305 
012306 
012307 
012310 
012311 
012312 
012313 
012314 
012315 
012316 
012317 
012320 
012321 
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TOAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 


-BYTE  TOAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT#TDAT+1 
-BYTE TOAT 
TOAT=TDAT+1 
_BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 


BYTE TDAT 
TDAT=TDAT +1 
BYTE  TDAT 
TDAT*TDAT+1 
-BYTE  TOAT 
TDAT=TDAT+1 
-BYTE  TOAT 
TOAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT+1 


-BYTE  ‘TDAT 
TOAT=*TDAT+1 
-BYTE TDAT 
TDAT=TDAT +i 
BYTE TDAT 


TDAT=TDAT +1 











CZOHG -CO 


- 


012322 
012323 
012324 
012325 
012326 
012327 
012330 
012331 
012332 
012333 
012334 
012335 
012336 
012337 
012340 
012341 
012342 
012343 
012344 
012345 
012346 
012347 
012350 
012351 
012352 
012353 
012354 
012355 
012356 


MACRO V04.00 


2 
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-BYTE  TDAT 
TOAT=TDAT+1i 


iDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE TDAT 
TDAT=TDAT+1 
: TDA 


TOAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+i 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 


TDAT=TDAT+1 
BYTE  TODAT 
TOAT=TDAT +1 
-BYTE  TDAT 
TOAT=TDAT +1 
-BYTE  TDAT 
TOAT=TDAT +1 
BYTE TDAT 
TDAT=TDAT +1 
-BYTE  TOAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 





SEQ 72 


I ES 


RE TE LI NTE OE CE I me 


- 


CZOHS -CO MACRO VO4.00 27-JUN-85 13:01:48 PAGE 24-13 on 
000307 TDAT=TDAT+1 
012357 307 .BYTE  TDAT 
000310 TOAT=TDAT+1 
012360 310 TE DAT 
000311 TDAT=TDAT+1 
012361 311 TE  TDAT 
000312 TDAT=TDAT+1 
012362 312 -BYTE  TDAT 
000313 TOAT=TDAT +1 
012363 313 -BYTE  TDAT 
; 000314 TDOAT=TDAT+1 
012364 314 _BYTE  TDAT 
000315 TDAT=TDAT+1 
012365 315 -BYTE  TDAT 
000316 TDAT=TDAT+1 
012366 316 -BYTE  TDAT 
000317 TDAT=TDAT+1 
012367 317 -BYTE  TDAT 
000320 TDAT=TDAT+1 
012370 320 -BYTE  TOAT 
000321 TDAT=TDAT+1 
012371 321 -BYTE 
000322 TDAT=TDAT+1 
012372 322 -BYTE  TOAT 
000323 TDAT=TDAT+1 
012373 323 -BYTE  TDAT 
000324 TDAT=TDAT +1 
012374 324 -BYTE  TDAT 
000325 TDOAT=TDAT+1 
012375 3 -BYTE  TDAT 
000326 TOAT=TDAT+1 
012376 326 -BYTE  ‘TDAT 
000327 TDAT=TDAT+1 
012377 327 -BYTE 
000330 TOAT=TDAT+1 
012400 3 BYTE TDAT 
000331 TDAT*TDAT+1 
012401 331 BYTE  TDAT 
000332 TOAT=TDAT +i 
012402 3 -BYTE 
000333 TOAT*TDAT +1 
012403 333 -BYTE AT 
000334 TDAT=TDAT+1 
012404 334 -BYTE  TDAT 
000335 TOAT=TDAT+1 
012405 335 -BYTE TDAT 
000336 TDAT*TOAT+1 
012406 3 -BYTE  TDAT 
000337 TDAT=TDAT+1 
012407 337 -BYTE TDAT 
000340 TDAT=TDAT+1 
012410 340 -BYTE  TOAT 
000341 TDAT*TDAT+1 
012411 341 BYTE  TODAT 
000342 TOAT=TDAT +1 
012412 342 -BYTE  TOAT 
000343 TDAT=TDAT+1 





CZOHG -CO 


‘a. 


012413 
012414 
912415 
012416 
012417 
012420 
012421 
012422 
012423 
012424 
012425 
012426 
012427 
012430 
012431 
012432 
012433 
012434 
012435 
012436 
012437 
012440 
012441 
012442 
012443 
012444 
012445 
012446 
012447 
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-BYTE  TOAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT#=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 


TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
BYTE 

TDOAT=TDAT+1 


TDAT=TDAT+1 
BYTE  TDAT 
pa 
BYTE  TDAT 
TOAT=TDAT+1 
BYTE  TDAT 
TOAT=TDAT+? 
BYTE  TDAT 
TDAT=TDAT +1 
BYTE  TDAT 
TDAT=TDAT +1 
BYTE ITDAT 
TOAT=TDAT+1 
BYTE  TOAT 
TDAT=TDAT+1 
BYTE TOAT 
TDAT=TDAT +1 
BYTE  TDAT 


TDAT 
TDAT*TDAT+1 
BYTE  TOAT 
TDAT=TDAT +1 
-_BYTE  TDAT 





SEQ 74 


- 


CZOHG -CO 


25 
26 012450 
27 
26 012512 


012707 
012712 





MACRO V04.00 
000400 
012512 
01 
010146 
010246 
010346 
010446 
010546 
016746 165272 
010667 177274 
012767 012550 
000777 
016706 177256 
012605 
012604 
1260 
012602 
012601 
012600 
012767 012512 
012767 000340 
012706 013752 
5067 000422 
5267 000416 
001375 
04401 
013037 
104402 
012652 
104401 
013042 
005067 177134 
005067 177174 
po4 TA 7132 
000002 
012004 
015 012 
104 110 
061 040 
ili 116 
114 105 
114 iil 
105 040 
101 122 
124 131 


165260 


165226 
165172 


-MSG 
012 MTITLE: 
061 


123 
107 


040 
116 
120 


111 
040 





SEQ 75 
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TDAT=TOAT+1 
-EVEN 
RBUF: 0 
-*.*40 
PFAIL 
sENTER HERE ON POWER FAILURE 
PFAIL: MOV RO,-CSP) ;SAVE RO-RS ON PROCESSOR STACK 
MOV Ri,-CSP) 
MOV R2,-(SP) 
MOV R3,-CSP) 
MOV RS,-(CSP) 
MOV 24,-CSP) 
MOV SP ,SAVSP ;SAVE STACK POINTER 
MOV @RESTART 24 ;SET UP FOR POWER UP TRAP ; 3 
~ aad sHALT ON POWER DOWN NORMAL 
sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
RESTAR: MOV SAVSP , SP sRESTORE STACK POINTER 
MOV CSP)+,R5 sRESTORE RO-RS5 
MOV CSP)+,R3 
MOV CSP)+,R2 
MOV SP)+,RO 
MOV OPFAIL .24 ;SET UP FOR POWER FAILURE 
MOV 0340 ,PS 
MOV @STACK ,SP 
CLR TEMP 
INC TEMP 
BNE .-4 
TYPE ; 5 
F ; 5 
OCTASC 
PFTAB 
TYPE 
MPF AIL 
CLR ERRFLG 
CLR LAST 
JMP GRETRN 
PFTAB: 1 
6.2 





RETRN 
*/DHil SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST/,*/CZDHG-CO/ 
~ASCIZ <15><12><12>/DHil SINGLE LINE PARITY CHECK & MULTI-LINE DATA TEST /<15><12> 





LSe2eeeeee 
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110 
113 


REESTRSEEREE 


MVECTO: .ASCIZ 


MREGAD: .ASCIZ 


MQM: .ASCIZ 
MCRLF: .ASCIZ 
MPFAIL: .ASCIZ 


MEPASS: .ASCIZ 


PASTXT: .ASCIZ 


<15><12>/VECTOR ADDRESS-/ 
<15><12>/CONTROL REGISTER ADDRESS-/ 
4 74 


<15><12> 
/ POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 


<15><12>/CZDHG-CO/ 


¢15><12>/PASS COUNT = / 








SEQ 76 








SEQ 77 


4 i2 iz2 ©: -ASCIZ <15><12>/R/ 
015 012 124 WMISTPC: .ASCIZ <15><12>/TEST PC-7/ 
123 124 
013174 040 120 103 
013177 055 000 


-EVEN 
-EVEN 
31 013202 . TRPTAB 
s TABLE OF POINTERS FOR TRAP DECODING 
013202 010566 TRPTAB: SCOPER 
01 011150 TYPER 
01 011470 OCTASN 
013210 011202 INSTRG 
013212 011274 INSTRE 
013214 011304 PARAMS 
013216 011642 SVOSP 
013220 011702 
013222 010666 SCOP1R 
32 013224 -BUFFER 
sBUFFERS FOR INPUT-OUTPUT 
013224 000000 INBUF: 0 
013236 7.010 
013236 000000 TEMP: O 
013250 *,+10 
013250 000000 MDATA: 0 
013262 -*.¢10 
33 013262 -ERRTAB 
sTABLE OF POINTERS TO ERROR MESSAGES AND DATA 
ERRTAB: 


ogogsg°g°a°8 
pe 


116 105 EMO: 


ASCIZ /UNEXPECTED INTERRUPT/ 








SEQ 78 
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013334 120 124 000 
47 013337 103 110 101 EM1: -ASCIZ /CHARACTER AVAILABLE NOT SET/ 
013342 122 101 103 
013345 124 1 122 


0 
48 013373 123 111 114 EM: -ASCIZ /SILO OVERRUN SET/ 


01 122 125 116 
013407 123 105 
013412 124 000 
49 013414 104 101 124 EMS: -ASCII /ODATA ERROR/ 
013417 101 040 105 
01 1 122 117 
013425 122 
50 013426 015 012 105 eASCIZ <15><12>/EXP REC LINE/ 
013431 130 120 040 
013434 040 040 
013437 040 122 105 
013442 103 040 040 
040 040 040 
013450 114 iii 116 
013453 105 000 
51 013455 124 122 101 EM4: -ASCIZ /TRANSHIT DONE NOT SET/ 
013460 116 123 115 
111 124 
104 117 116 
013471 040 116 
013474 117 124 040 
013477 123 105 124 
013502 000 
S2 013503 103 110 101 EMS: »~ASCIZ /CHARACTER AVAILABLE SET/ 
013506 122 101 103 
3511 124 122 
040 101 126 
101 iii 114 
101 102 114 
105 040 
105 124 000 





sDATA TABLES FOR ERRORS 


SARS SSIRASU 
materia 
uatiet 








- 


CZ0HG - 50 
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013552 000000 ENDCOD: 0 
5 000001 NO 


- 











SEQ 79 





CZOHG -CO 
SYMBOL TABLE 


ADRCNT= 011467 
BARBIT 010426 


BEGIN 001306 
BINWRD 011640 
BITX = 000000 
BITOO = 000001 
BITO1 = 000002 
BITO2 = 000094 
BITOS = 000010 
BITO4 = 000020 
BITOS = 

BITO6 = 000100 
BITO7 = 000200 
BITOS8 = 000400 
BITO9 = 001000 
BIT10 = 

BIT11i = 

BIT12 = 010000 
BITI3 = 020000 
BITi4 = 040600 
BIT15 = 100000 





- ABS. 013554 
000000 
ERRORS DETECTED: 


001 
0 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
CZDHGC .BIN,CZDHGC . SEQ=CZDHGC .DOC ,.DHMACA. MAC, CZDHGC .P11 


-— 


013373 


18944 WORDS ( 74 PAGES) 
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SAVRS 012030 
SAVSP 012032 
SAVOSP= 104406 
SCOPE = 104400 
SCOPER 010566 
SCOPE1= 104410 
SCOPIR 010666 
SPACNT= 011637 
STACK = 013752 
START 001004 
STFLG O1 
SVO5 011650 
SVOSP 011642 
SWR 001000 
SWOO = 000001 
SWO1 = 000002 
SWO2 = 000004 
SWO3S = 000010 
SWO4 = 000020 
SWOS = 
SWO6 = 000100 
SWO8 = 000400 
SWO9 = 001000 
SW10 = 002000 
SWiil = 004000 
SWi2 = 010000 
SWiS = 
SW14 = 040000 
SWiS = 100000 
TBUF 012050 
TOAT = 000400 
TOATA 012046 
013236 
TKCSR 011734 
011736 
TPCSR 011740 
TPDOBR 011742 
TRPOK 1130 


01 
TRPSRV 011116 


TRPTAB 013202 
TYPDAT 011026 
TYPE = 104401 


TS 002210 
T6 002352 
T7 002514 
VEC1i 001164 

001174 
WROCNT 011634 
x = 000090 
XBIT = 000001 
XLINE = 000000 
XN = 000033 
Y = 000011 


SE A OS RE STE EET Ee 





em = 


